cad四边形展开lisp_批量绘制四边形 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区

;试用以下程序

(defun c:test()

(setq bcsjb '(("A1" 9549.31 6977.53 7180.75 7155.97 11015.11)

("A2" 10814.00 7468.76 6367.24 7155.97 11072.28)

("A3" 4563.99 6621.92 6732.4 7155.97 10938.9)

("A4" 4911.96 6422.68 11368.55 7538.32 10932.26)

)

(setq cmd (getvar "cmdecho"))

(setq osm (getvar "osmode"))

(setvar "cmdecho" 0)

(setvar "osmode" 0)

(command "_undo" "be")

(setq ljc 0.0)

(setq i 0)

(setq n (length bcsjb))

(repeat n

(setq sjb (nth i bcsjb))

(mapcar 'set '(zfc c a d e b) sjb)

(setq CosA (/ (- (+ (* b b) (* c c)) (* a a)) 2.0 b c))

(setq jdA (atan (/ (sqrt (- 1.0 (* CosA CosA))) CosA )))

(setq p1 (list ljc 0))

(setq p2 (mapcar '+ p1 (list c 0)))

(setq p3 (polar p1 jdA b))

(setq CosB (/ (- (+ (* b b) (* e e)) (* d d)) 2.0 b e))

(setq jdB (atan (/ (sqrt (- 1.0 (* CosB CosB))) CosB)))

(setq p4 (polar p1 (+ jdA jdB) e))

(setq pmid (mapcar '(lambda(x y)(* 0.5 (+ x y))) p1 p3))

(command "_pline" p1 p2 p3 p4 "c")

(command "_text" pmid 1000 0 zfc)

(setq ptmin (apply 'mapcar (cons 'min (list p1 p2 p3 p4))))

(setq ptmax (apply 'mapcar (cons 'max (list p1 p2 p3 p4))))

(setq dxy (mapcar '- ptmax ptmin))

(setq ljc (+ ljc (car dxy) 2000.0))

(setq i (1+ i))

)

(command "_undo" "e")

(setvar "osmode" osm)

(setvar "cmdecho" cmd)

(princ)

)

cad四边形展开lisp_批量绘制四边形 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...相关推荐

方孔分段的lisp_常用函数.lsp - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
本帖最后由自贡黄明儒于 2013-11-11 12:57 编辑 ;;各位,把你们收藏都拿出秀一秀呀,放在箱底会生霉的 ;;我的收集是在caoyin发布的通用函数基础上扩展的----自贡黄明儒 20 ...
偏移变色lisp_直线偏移联动 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
本帖最后由 masterlong 于 2018-11-4 15:08 编辑 ;| 类似于edata发布的程序"直线偏移连动~偏移后修改与其相接触的直线" 和他不同的是 edata的 ...
lisp绘制棱锥_动态绘制示坡线 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
本帖最后由 20060510412 于 2018-11-4 22:11 编辑 [code="lisp] ;; ;;动态示坡线 by 明经通道 QQ9034598 小蜜蜂 2013- ...
cad偏移后自动变色lisp_高手帮忙修改，批量偏移 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
;;用LISP实现将PL环向内或向外偏移 ;;http://www.mjtd.com/Develop/ArticleShow.asp?ArticleID=654 (defun C:TEE ( / cu ...
cad批量逐个填充lisp_快速填充的多选问题 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
本帖最后由 alexmai 于 2019-3-22 00:35 编辑 ----------------------------------------------------------------- ...
块内拉升lisp_多重插入块的炸开问题？ - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
很多个cad文件,被别人加了密,每个cad文件都生成了很多个多重插入块,在论坛找了个xxi的程序,可以炸开多重插入块,但是,文件太多,块也太多,不能一个一个炸,而且,每个多重插入块执行一下xxi命令之 ...
cad抛物线曲线lisp_曲线的转弯半径和曲率 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
;;;============================================================= ;;; 一般平面曲线参数方程的曲率离心公式 ;;; 功能: 获取曲线上 ...
lisp批量生成轴线_求批量插入图纸的程序 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
不明白的是这样一个程序和解密有什么关联归档文件合并.lsp 1.需要doslib函数库支持 2.需要手动建立c:\QGY_temp文件夹 (defun c:insdwgs() (princ &quo ...
cad线段总和lisp_求一个线段长度总和与生成文本 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
像这种 ;;;;;计算面积,周长.显视在图面上 (defun C:am (/ s text1 text2 ss l i totalarea ename obj insertpt insertpt1) ...

cad四边形展开lisp_批量绘制四边形 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...

cad四边形展开lisp_批量绘制四边形 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...相关推荐

最新文章

热门文章