关于画矩形的lsp，求大大优化一下呢

酷酷提 · 发表于 2022-4-28 10:30:00

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)
)

rocking2008 · 发表于 2022-4-28 10:36:36

酷酷提发表于 2022-4-28 10:30
就是这个，我把命令改成了我用起来比较方便的
还有就是请问一下
直线变矩形后，删除原直线

QQ510438061

xj6019 · 发表于 2022-4-28 12:00:22

本帖最后由 xj6019 于 2022-4-28 15:02 编辑

哥们你再去老地方下载一下更新了4.0 为动态绘制了，动态支持捕捉，可以直接鼠标指定长度后绘制，也可直接输入长度绘制，玩玩现在这个感觉如何呀

说明：此处代码与 10楼完全相同，完全相同，完全相同提醒大家不要重复下载！！！！！

不好意思，漏函数了，已经补齐！！重新下载试试！！

酷酷提 · 发表于 2022-4-28 14:12:02

本帖最后由酷酷提于 2022-4-28 14:14 编辑

xj6019 发表于 2022-4-28 12:00
哥们你再去老地方下载一下更新了4.0 为动态绘制了，动态支持捕捉，可以直接鼠标指定长度后绘制，也可直接 ...

老师，这也太牛了，功能越来越强大

命令: nm
**输入宽度:18
**输入长度（长度要大于宽度）:500
请指定第一点定位:; 错误: no function definition: OSNAPPT

但是提示这个是什么意思呢

酷酷提 · 发表于 2022-4-28 14:19:21

本帖最后由酷酷提于 2022-4-28 14:21 编辑

xj6019 发表于 2022-4-28 12:00
哥们你再去老地方下载一下更新了4.0 为动态绘制了，动态支持捕捉，可以直接鼠标指定长度后绘制，也可直接 ...

命令: nm
**输入宽度:18
**输入长度（长度要大于宽度）:500
请指定第一点定位:; 错误: no function definition: OSNAPPT

刚刚试了一下，好像是和对象捕捉这个功能有冲突。。。

xj6019 · 发表于 2022-4-28 15:03:45

酷酷提发表于 2022-4-28 14:19
命令: nm
**输入宽度:18
**输入长度（长度要大于宽度）:500

不好意思，漏函数了，补全了，重新下载了试试吧

酷酷提 · 发表于 2022-4-28 15:16:01

xj6019 发表于 2022-4-28 15:03
不好意思，漏函数了，补全了，重新下载了试试吧

可以用了

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

[提问] 关于画矩形的lsp，求大大优化一下呢