求一个能画出如下线条的LISP程序...
本帖最后由 raimo 于 2011-5-31 22:33 编辑经常需要画到如下形状的线条,常常反复编辑长度及转折处,比较的烦人而且属于重复劳动..
如果可以的话请坛子里的高手们帮忙做一个lisp程序能像画线条一样,画出如下的线条来...
在此先拜谢了..
线条规格可参照附在附件的DWG文件
静等院长动画演示。 呵呵,静等院长动画演示+lsp 院长快来啊 院长快来啊!~~静等院长动画演示+lsp 如果有类似形状的线型,那就很方便的 祥子 发表于 2011-6-1 18:18 static/image/common/back.gif
如果有类似形状的线型,那就很方便的
类似的线型..如果全是曲线,虽然可以形似但也不好解决转折部分的重叠..而且也做不到带箭头的效果 看来这个功能挺不好弄啊..都没人响应
;画窗帘线 明经 ZZXXQQ 2011.6 4
(defun c:tt ()
(setvar "CMDECHO" 0)
(setq p1 (getpoint "\n起点 :"))
(while (setq p2 (getpoint p1 "\n下一点 :"))
(setq ds (distance p1 p2))
(setq ang (angle p1 p2))
(setq n (fix (/ ds 55)))
(setq fx -1)
(repeat n
(setq p3 (polar p1 ang 55))
(command ".ARC" p1 "E" p3 "A" (* fx 230))
(setq fx (* fx -1))
(setq p1 p3)
)
(setq p3 p2)
)
(repeat 3
(command ".ERASE" "L" "")
(setq p1 (polar p1 ang-55))
)
(setq p2 (polar p3 ang -60))
(setq p4 (polar p2 (+ ang (/ pi 2)) 30))
(command ".LINE" p1 p3 p4 p2 "")
(setvar "CMDECHO" 1)
(princ)
)
页:
[1]
2