rocking2008 发表于 2022-4-28 10:23
那个C:NM的，好像和图片演示的不一样呀
你的内空转矩形的发我一下我看看。
就是这个，我把命令改成了我用起来比较方便的
还有就是请问一下
直线变矩形后，删除原直线
这个需要怎么修改才会不取消对象捕捉呢
用了这个命令后会关闭对象捕捉，然后对象捕捉里面的原有勾选的全部变没勾了。。。
;; 直线变矩形
(defun c:zbj()
(setvar "osmode" 0)
(setq ww (getreal "\n请输入宽度: "))
(prompt "\n框选欲变矩形的直线: ")
(setq ss (ssget '((0 . "LINE")))
d(* ww 0.5)
i-1
)
(while (setq s1 (ssname ss (setq i (1+ i))))
(setq p1 (vlax-curve-getstartPoint s1)
p2 (vlax-curve-getendPoint s1)
r(+ (angle p1 p2) (* pi 0.5))
)
(command "pline" (polar p1 r (- d)) (polar p2 r (- d)) (polar p2 r d) (polar p1 r d) "c")
)
(command "erase" ss "")
(princ)
)
酷酷提 发表于 2022-4-28 10:30
就是这个，我把命令改成了我用起来比较方便的
还有就是请问一下
直线变矩形后，删除原直线
QQ510438061
本帖最后由 xj6019 于 2022-4-28 15:02 编辑
哥们你再去老地方下载一下更新了4.0为动态绘制了，动态支持捕捉，可以直接鼠标指定长度后绘制，也可直接输入长度绘制，玩玩现在这个感觉如何呀
说明：此处代码与10楼完全相同，完全相同，完全相同 提醒大家不要重复下载！！！！！
不好意思，漏函数了，已经补齐！！重新下载试试！！
本帖最后由 酷酷提 于 2022-4-28 14:14 编辑
xj6019 发表于 2022-4-28 12:00
哥们你再去老地方下载一下更新了4.0为动态绘制了，动态支持捕捉，可以直接鼠标指定长度后绘制，也可直接 ...
老师，这也太牛了，功能越来越强大
命令: nm
**输入宽度:18
**输入长度（长度要大于宽度）:500
请指定第一点定位:; 错误: no function definition: OSNAPPT
但是提示这个是什么意思呢
本帖最后由 酷酷提 于 2022-4-28 14:21 编辑
xj6019 发表于 2022-4-28 12:00
哥们你再去老地方下载一下更新了4.0为动态绘制了，动态支持捕捉，可以直接鼠标指定长度后绘制，也可直接 ...
命令: nm
**输入宽度:18
**输入长度（长度要大于宽度）:500
请指定第一点定位:; 错误: no function definition: OSNAPPT
刚刚试了一下，好像是和 对象捕捉 这个功能有冲突。。。
酷酷提 发表于 2022-4-28 14:19
命令: nm
**输入宽度:18
**输入长度（长度要大于宽度）:500
不好意思，漏函数了，补全了，重新下载了试试吧
xj6019 发表于 2022-4-28 15:03
不好意思，漏函数了，补全了，重新下载了试试吧
可以用了