分享一个网淘修改位置标注。
本帖最后由 lifeifei 于 2023-3-3 14:34 编辑;============================矩形修订云线
(defun c:yx(/ x0 y0 x1 y1)
(setvar "cmdecho" 0 )
(setq oldlayer (getvar "clayer"));;加层
(command "_layer" "n" "李飞修改位置" "c" "6" "李飞修改位置" "p" "n" "李飞修改位置" "") ;;加层
(setvar "clayer" "李飞修改位置");;加层
(SetQ p0 (GetPoint "\n 第一角点：") x0(car p0) y0(cadr p0)
p1 (getcorner p0 "\n 另一角点：") x1(car p1) y1(cadr p1)
dx (abs (- x0 x1))
dy (abs (- y0 y1))
)
(Command "rectang" p0 p1)
(if(<= dx dy)
(SetQ al (/ dx 10))
(SetQ al (/ dy 10)))
(Command "revcloud" "a" al al "s" "c" "o" "l" "")
(setvar "clayer" oldlayer)
(setvar "cmdecho" 1)
(prinC)
)
看看这个：http://bbs.mjtd.com/thread-186837-1-1.html
页:
[1]