大家好:
使用CAD命令lengthen---> T 指定总长度可以改变线的总长，不仅可以改直线，也可以改多段线
能不能直接用lisp写出来呢?输入命令tt, 提示输入长度，然后选择线条。
用lisp改变直线的长度
答案:2 悬赏:40 手机版
解决时间 2021-03-29 14:37
- 提问者网友：喧嚣尘世
- 2021-03-29 02:24
最佳答案
- 五星知识达人网友：青灯有味
- 2020-11-10 16:57
(Defun C:TT (/ lineLength)
(setq lineLength (getreal "\n输入长度"))
(if (> lineLength 0.0)
(progn
(setvar "cmdecho" 1)
(command ".LENGTHEN" "t" lineLength pause)
)
)
(prin1)
)
(setq lineLength (getreal "\n输入长度"))
(if (> lineLength 0.0)
(progn
(setvar "cmdecho" 1)
(command ".LENGTHEN" "t" lineLength pause)
)
)
(prin1)
)
全部回答
- 1楼网友：撞了怀
- 2019-04-10 03:46
1. 电脑系统【卸载或更改程序】，点击autocad，添加功能【express tools】。
2. (setq ss1 (acet-geom-intersectwith ent1 ent2 0));取得两个对象交点集合，如果没有交点nil。
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯