raimo 发表于 2011-5-31 22:31:32

求一个能画出如下线条的LISP程序...

本帖最后由 raimo 于 2011-5-31 22:33 编辑

经常需要画到如下形状的线条,常常反复编辑长度及转折处,比较的烦人而且属于重复劳动..
如果可以的话请坛子里的高手们帮忙做一个lisp程序能像画线条一样,画出如下的线条来...
在此先拜谢了..

线条规格可参照附在附件的DWG文件



highflybird 发表于 2011-5-31 23:58:48

静等院长动画演示。

raimo 发表于 2011-6-1 07:40:04

呵呵,静等院长动画演示+lsp

linshiyin2 发表于 2011-6-1 07:51:39

院长快来啊

daidong013 发表于 2011-6-1 11:51:05

院长快来啊！~~静等院长动画演示+lsp

祥子 发表于 2011-6-1 18:18:38

如果有类似形状的线型，那就很方便的

raimo 发表于 2011-6-1 19:53:53

祥子 发表于 2011-6-1 18:18 static/image/common/back.gif
如果有类似形状的线型，那就很方便的

类似的线型..如果全是曲线,虽然可以形似但也不好解决转折部分的重叠..而且也做不到带箭头的效果

raimo 发表于 2011-6-3 23:56:19

看来这个功能挺不好弄啊..都没人响应

ZZXXQQ 发表于 2011-6-4 14:59:12


;画窗帘线 明经 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)
)

xyp1964 发表于 2011-6-4 15:51:33

页: [1] 2
查看完整版本: 求一个能画出如下线条的LISP程序...