CAD画矩形云线里面有矩形框的疑问

magicheno

各位大佬通过CAD原命令lzrevcloud或者自建lsp都会有矩形框的存在，而且是突然变成这样的，前几天其实都好好的，是不是哪里的变量影响了的
;;;云线
(defun c:yx(/ x0 y0 x1 y1)

(command "layer" "M" "WP_SIGN" "C" "6" "" "LT" "CONTINUOUS" "" "")  

(setvar "cmdecho" 0 )
   
(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 8))
(SetQ al (/ dy 8)))
(Command "revcloud" "a" al al "s" "c" "o" "l" "")
   
(setvar "cmdecho" 1)
(prinC)
)

shh1980

DELOBJ（系统变量）
控制保留还是删除用于创建其他对象的几何图形
类型:        整数
保存位置:        注册表
初始值:        3

magicheno

shh1980 发表于 2021-9-2 09:56
DELOBJ（系统变量）
控制保留还是删除用于创建其他对象的几何图形
类型:        整数

大佬很给力，感谢哈~~~