过滤输出用户输入

bgator220 · 发表于 2022-7-6 10:23:38

你好

我是论坛新手。我正在尝试制作一个程序，帮助我从autocad文件中编写g代码。我很快就学会了lisp，只需将不同的代码片段拼凑在一起，然后根据我的具体需要进行定制。我有一个功能有问题，我希望有人会知道答案。

我有代码告诉我这个对象是否是一个圆弧，但发现用户输入的不是一个对象（比如仅仅点击一个点），然后代码就搞糟了。有什么办法可以防止吗？我在考虑initget，但它只适用于get命令吗？

copy


(defun g79fun ( )
 (setq codeuse 1)
 (while(= codeuse 1)
 (setq ent (entsel "\nSelect the Arc: ")) 
 (setq lstent (entget (car ent)))
   (initget + 1)
     (if (= "ARC" (cdr (assoc 0 lstent)))(progn
             (setq radius (cdr (assoc 10 lstent)))
             (setq codeuse nil)
               )(progn
           (princ "\nNot an Arc or Circle. ")
           (princ "idiot")
           )
   )
 )
)

谢谢
布瑞恩

JohnM · 发表于 2022-7-6 10:30:50

查看带有单个选择和过滤器的ssget函数

BlackBox · 发表于 2022-7-6 10:37:16

试试这个：

copy


(defun c:FOO  (/ eName eList)
 (if (and (setq eName (car (entsel "\n  >>  Select an Arc or Ciricle: ")))
          (wcmatch (cdr (assoc 0 (setq eList (entget eName)))) "ARC,CIRCLE"))
   (prompt
     (strcat
       "\n  >>  Radius = "
       (rtos (cdr (assoc 40 eList)) 2 2)))
   (prompt "\n  <!>  Invalid Object  <!> "))
 (princ))

alanjt · 发表于 2022-7-6 10:40:49

从我的工具箱里。。。

copy

(defun c:Rad (/ ent cen)
 ;; Check radius of selected arc segment
 ;; Alan J. Thompson, 05.17.10
 (if (setq ent (nentsel "\nSelect arc segment: "))
   (if (setq cen (osnap (cadr ent) "_cen"))
     (alert (strcat "Radius: " (rtos (distance (osnap (cadr ent) "_near") cen))))
     (alert "Segment not an arc!")
   )
 )
 (princ)
)

适用于具有半径的任何对象（LW多段线线段、圆弧、椭圆、圆）。

David Bethel · 发表于 2022-7-6 10:42:54

给猫剥皮有很多方法：

copy


[b][color=BLACK]([/color][/b]defun c:getarc [b][color=FUCHSIA]([/color][/b]/ ss en ed ce ra[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]while [b][color=NAVY]([/color][/b]or [b][color=MAROON]([/color][/b]not ss[b][color=MAROON])[/color][/b]
            [b][color=MAROON]([/color][/b]/= [b][color=GREEN]([/color][/b]sslength ss[b][color=GREEN])[/color][/b] 1[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
        [b][color=NAVY]([/color][/b]princ [color=#2f4f4f]"\nSelect 1 ARC"[/color][b][color=NAVY])[/color][/b]
        [b][color=NAVY]([/color][/b]setq ss [b][color=MAROON]([/color][/b]ssget [b][color=GREEN]([/color][/b]list [b][color=BLUE]([/color][/b]cons 0 [color=#2f4f4f]"ARC"[/color][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]setq en [b][color=NAVY]([/color][/b]ssname ss 0[b][color=NAVY])[/color][/b]
       ed [b][color=NAVY]([/color][/b]entget en[b][color=NAVY])[/color][/b]
       ce [b][color=NAVY]([/color][/b]cdr [b][color=MAROON]([/color][/b]assoc 10 ed[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
       ra [b][color=NAVY]([/color][/b]cdr [b][color=MAROON]([/color][/b]assoc 40 ed[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]prin1[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]