求助能否把N条直线的长度按图纸比例写在各直线上方，谢谢！

Gu_xl · 发表于 2011-1-6 12:38:56

回复 x_s_s_1 的帖子

与线平行改这句即可
(entmake (list '(0 . "text") (cons 1 (rtos dist 2 0)) (cons 10 pt) (cons 40 h)))
===》
(entmake (list '(0 . "text") (cons 1 (rtos dist 2 0)) (cons 10 pt) (cons 40 h)(cons 50 ang)))

Gu_xl · 发表于 2011-1-6 12:43:01

回复 cxs259 的帖子

程序是根据自己的需要来定制，每个人的需求都不一样，所以自己要学会编程才能满足自己的需要，对于line arc circle ellipse spline标边长都很简单，都差不多，你自己可尝试去修改，改成合适自己的需求！

lincctw_ccl · 发表于 2011-1-6 23:58:51

很有用的程式!!
謝謝版主

cxs259 · 发表于 2011-1-7 14:33:40

感谢版主的教诲，我会努力的！对版主的无私解答，致万分敬意！

x_s_s_1 · 发表于 2011-1-8 16:13:26

非常感谢版主解答，谢谢

jialiang168 · 发表于 2011-1-13 13:16:45

非常感谢版主热心的分享，只是想再请问一下版主如果要改让文字更靠近线的位置该怎么改呢？

Gu_xl · 发表于 2011-1-13 13:32:06

回复 jialiang168 的帖子

修改pt位置，改下面这句代码
...
PT (POLAR (vlax-curve-getPointAtParam EN (- k 0.5)) (+ ANG (/ PI 2)) (* 2 H))
...

cxs259 · 发表于 2011-1-13 15:02:45

文字重叠如附图，请版主给予优化，谢谢！

Gu_xl · 发表于 2011-1-13 18:53:28

回复 cxs259 的帖子

你把线连成多段线就好了！

xjf · 发表于 2011-1-16 17:10:47

下载了,支持源代码

账号		自动登录	找回密码
密码			注册

求助能否把N条直线的长度按图纸比例写在各直线上方，谢谢！

本帖子中包含更多资源