运行Pline，然后执行

tmelancon · 发表于 2022-7-5 17:46:00

我已经编写了一个小命令，在最后一个对象（即矩形、pline、圆形…等）上运行修订云，它工作得很好，但我试图找出一种在绘制矩形或pline后运行该自定义命令的方法。而不是每次都必须立即键入快捷方式。

这是我所指的自定义rev cloud命令，当我完成绘制所述对象后作为独立对象运行时，该命令可以完美地工作，但我想结合使用。。见下文：
这里是矩形命令，之后尝试运行自定义。它可以工作，但看起来有问题，很可能写错了。（别紧张，我一直在学习）：
这是我在pline上的尝试，但我甚至不知道从哪里开始，因此它允许用户无限点，然后点击“c”关闭，然后运行自定义命令：

copy

(DEFUN C:PLR ()
(command "_.PLINE")
   (coMmand pause)
(C:RCL)
(PRINC))

tmelancon · 发表于 2022-7-5 18:49:47

我似乎已经解决了这个问题。我刚在这里发了一个帖子，真的让我的大脑怦怦直跳。如果你一直想要像这样一个简单、漂亮的程序，请复制并自己使用。

主云代码：

copy

(DEFUN C:RCL ()
(COMMAND "REVCLOUD" "O" "L" "")
(PRINC))

常规完成后带云的矩形：

copy

(DEFUN C:RECL ()
(COMMAND "RECTANGLE")
(while (> (getvar "CMDACTIVE") 0) (command pause))
(C:RCL)
(PRINC))

常规完成后带云的多段线：

copy

样条带云在例行完成时：

copy

[编程交流] 运行Pline，然后执行

发表回复

精选推荐