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方式
 
^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;;

Commandobill 发表于 2022-7-5 19:36:28

荒谬的谁不用Lisp程序？！？！
 
只是开玩笑！

iconeo 发表于 2022-7-5 19:39:37

 
这很有趣，因为我觉得这个宏比lisp更有效。它根据dimscale进行调整，可以在模型空间或图纸空间中使用。

mbrandt5 发表于 2022-7-5 19:44:47

酷commandobill谢谢你。。。

Hsanon 发表于 2022-7-5 19:49:38

希望看到（并使用）最终版本。。。。这似乎是一个五步节约。。。。
一定要让我们知道它上传到哪里的线程。。。。
 
谢谢
页: 1 [2]
查看完整版本: Rev云矩形故障