求画双线或者同时两边相等偏移的LSP!!

jeepsheep · 发表于 2004-7-24 13:08:00

求画双线或者同时两边相等的偏移的LSP!!

meflying · 发表于 2004-7-24 13:14:00

(defun c:test( / ent dis)
(setq ent (car (entsel)))
(setq dis (getreal "\n输入距离:"))
(vla-offset (vlax-ename->vla-object ent) dis)
(vla-offset (vlax-ename->vla-object ent) (- dis))
(princ)
)

xyp1964 · 发表于 2004-7-24 15:22:00

本帖最后由作者于 2004-7-24 15:43:36 编辑

Jeepsheep：

有一个现成的建筑专业画墙的程序，画完后再改到需要的层。

加载后的命令为：qx （墙线）

jeepsheep · 发表于 2004-7-24 21:55:00

谢谢meflying,能用,好用,能否在追加上一个命令:删除原图形,即:同时两边相等偏移并删除原始图形等于画双线了!谢谢! 同时也谢谢xyp1964,但是我想看的到如何编写的,我希望知道为什么!

meflying · 发表于 2004-7-25 09:59:00

(defun c:test( / ent dis)
(setq ent (car (entsel)))
(setq dis (getreal "\n输入距离:"))
(vla-offset (vlax-ename->vla-object ent) dis)
(vla-offset (vlax-ename->vla-object ent) (- dis)) (entdel ent)
(princ)
)

jeepsheep · 发表于 2004-12-1 10:42:00

meflying发表于2004-7-25 9:59:00(defun c:test( / ent dis) (setq ent (car (entsel))) (setq dis (getreal \"\n输入距离:\")) (vla-offset (vlax-ename->vla-object ent) dis)...

这个LISP真的很好用,还能再改改吗!现在"输入距离"是双线的宽度的一半,如果直接输入距离直接是双线的距离就方便多了,免的还要算一算!

jeepsheep · 发表于 2004-12-1 11:19:00

本帖最后由作者于 2004-12-1 17:12:25 编辑

xyp1964发表于2004-7-24 15:22:00Jeepsheep：有一个现成的建筑专业画墙的程序，画完后再改到需要的层。 UploadFile/2004-7/2004724152111617.fas,viewFile....

能不能再改改,使的物体在当前层,并随层颜色!

meflying · 发表于 2004-12-1 12:13:00

(defun c:test( / ent dis)
(setq ent (car (entsel)))
(setq dis (getreal "\n输入距离:"))
(vla-offset (vlax-ename->vla-object ent) (/ dis 2.0))
(vla-offset (vlax-ename->vla-object ent) (- (/ dis 2.0)))
(entdel ent)
(princ)
)

jeepsheep · 发表于 2004-12-1 17:14:00

谢谢meflying! 真的很热心帮助人! 好用多了!

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

求画双线或者同时两边相等偏移的LSP!!

本帖子中包含更多资源