复制图层提示样式

mtaussie · 发表于 2022-7-6 09:52:05

我正在寻找一种方法来提示用户选择直线/圆/选项。如果用户选择了选项，我希望能够返回到线/圆/选项的主要选择，直到他们选择线或圆。在选项中，我将使用图层/线型。。。
我迷路了，不知道我应该用布尔值还是用一段时间，或者选择什么。
任何想法，
马特·沃兰德

Tharwat · 发表于 2022-7-6 10:09:18

看看这个。。。。。。。

copy


(initget "Line Circle Options")
(setq reply (getkword "\n Specify your way [ Line,Circle,Options ]:"))

当做

塔瓦特

Lee Mac · 发表于 2022-7-6 10:31:48

下面是一个简单的例子，我不理解你试图实现的目标：

copy


(defun c:test ( / flag ans1 ans2 )
 (while (not flag)
   (initget 1 "Line Circle Options")
   (setq ans1 (getkword "\nChoose Option [Line/Circle/Options]: "))
   (if (eq "Options" ans1)
     (progn
       (initget 1 "Layer lineType")
       (setq ans2 (getkword "\nChoose Secondary Option [Layer/lineType]: "))
       (alert (strcat "You chose: " ans2))
     )
     (setq flag T)
   )
 )
 (princ)
)