daidong013 发表于 2011-6-4 16:26:22

高手出手一定行啊！~~顶顶顶

daidong013 发表于 2011-6-4 16:36:42

本帖最后由 daidong013 于 2011-6-4 17:09 编辑

建议 能改一下可以变成整体的吗,另外那个小箭头建议有填充，还能选线变窗帘！~呵呵！~~
还有这个程序在图面缩小的时候画出来有点问题,在有角度的时候画出来的窗帘箭头上也有问题！··

xyp1964 发表于 2011-6-4 17:39:19

本帖最后由 xyp1964 于 2011-6-5 09:10 编辑


;;需要e派工具箱的支持：http://e.ys168.com/?xyp1964
(defun c:tt ()
(CMDLA0)
(setq s0 (entlast))
(command "pline")
(while (/= 0 (getvar "cmdactive"))
    (command pause)
)
(xyp-Curve2Blx (entlast) 80 60 0)
(setq ptn (reverse (xyp-get-Vertexs (entlast) 0))
      p2(car ptn)
      p1(cadr ptn)
      rad (angle p1 p2)
      p3(polar p2 rad 200)
      p3a (polar p3 rad -80)
)
(command "pline" p2 "w" 0 0 p3a "w" 50 0 p3 "")
(xyp-PeditJoin (xyp-SSelEntnext s0) 0)
(CMDLA1)
)

daidong013 发表于 2011-6-4 19:03:10

非常好用！~~感谢xyp1964

raimo 发表于 2011-6-5 00:14:23

首先感谢两位高手的援手:

xyp1964 版主这个不懂怎么用运行tt ;
错误: no function definition: CMDLA0

ZZXXQQ版主这个在多运行几次的情况下总会出错..不知道啥原因
画出来的线有时候正常,有时候只有一个半弧,有时候没有箭头..

Z版这个,如果最后能成组就更好了

仲文玉 发表于 2011-6-7 15:48:32

raimo 发表于 2011-6-5 00:14 static/image/common/back.gif
首先感谢两位高手的援手:

xyp1964 版主这个不懂怎么用运行tt ;


上面写着要学院派工具箱支持

raimo 发表于 2011-6-7 20:32:45

仲文玉 发表于 2011-6-7 15:48 static/image/common/back.gif
上面写着要学院派工具箱支持

恩前面没注意到,后来看到了..

cjjh8301 发表于 2011-6-11 09:03:55

强大，支持！！

myw052 发表于 2011-6-16 10:08:05

版主很厉害，弱弱问下，做成的曲线是多义线么？

raimo 发表于 2011-6-16 20:15:07

不是多义线,就是普通的弧线.
页: 1 [2]
查看完整版本: 求一个能画出如下线条的LISP程序...