Rev云矩形故障

BIGAL · 发表于 2022-7-5 19:26:30

搜索BIGAL我还发布了一个revcloud。lsp最近我认为它只有6行长。

Commandobill · 发表于 2022-7-5 19:28:56

对不起，巴德，我不是这个意思。我的意思是，你已经在使用命令调用了，为什么不：

(defun c:cheatingcloud ( / pt1 pt2 osmode)
 (if (and  (SETQ PT1 (GETPOINT "\nPick lower left corner of window: ")) 
(setq pt2 (getcorner pt1 "\nPick upper right corner of window: ")))
   (progn
     (setq osmode (getvar 'osmode))
     (setvar 'osmode 0)
     (command "_rectangle" pt1 pt2)
     (setvar 'osmode osmode)
     (command "revcloud" "_O" (entlast) "_N")
     )
   )
 )

非常简单，但我想你明白我的意思。

iconeo · 发表于 2022-7-5 19:31:14

非lisp方式

copy

^C^CRECTANGLE;\\REVCLOUD;A;$M=$(if,$(=,$(getvar,cvport),1),0.25,$(*,0.25,$(getvar,dimscale)));$M=$(if,$(=,$(getvar,cvport),1),0.375,$(*,0.375,$(getvar,dimscale)));;L;;