[求助]：新手上路请多关照:怎样确定所选图形为圆形

stone0030 · 发表于 2004-12-6 13:48:29

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本人新手,望多关照
在LISP中,如果想确定一个所选择的图形是圆形 ,应怎么编码
如(cadr(entget (car (entsel))))[/SIZE] ,所返回为(0 . CIRCLE)[/SIZE]
怎么编码,确认为圆形 ,返回"CIRCLE"

请大家给我LISP程序,要求[/SIZE]执行程序后,点击圆形返回"CIECLE"
点击其他图形,返回"NO"

lsjjm · 发表于 2004-12-6 15:52:15

[PHP]
(defun c:test()
  (setq ent (car (entsel)))
  (setq eg (entget ent))
  (princ "\n")
  (if (= (cdr (assoc 0 eg)) "CIRCLE")
(setq cir (cdr (assoc 0 eg)))
(setq cir "NO")
  )
  cir
)
[/PHP]

stone0030 · 发表于 2004-12-6 18:13:33

不好意思,前辈,恕小弟愚笨,不明白其中奥秘
能否解释一下 "if" 中的代码的意义
为何其中没有打印语句却能显示语句呀

xyp1964 · 发表于 2004-12-6 22:18:00

[php]
(defun c:test ()
  (setq cir (cdr (assoc 0 (entget (car (entsel))))))
  (if (= cir "CIRCLE")
(alert "CIRCLE !")
(alert "NO !")
  )
  (princ)
)
[/php]

狂刀 · 发表于 2004-12-7 00:07:45

[php]
(defun c:tt ()
  (if (ssget ":s:e" '((0 . "circle")))
   (print "circle")
   (print "no")
)
)
[/php]

urljit · 发表于 2004-12-12 16:33:18

最初由 stone0030 发布
[B]不好意思,前辈,恕小弟愚笨,不明白其中奥秘
能否解释一下 "if" 中的代码的意义
为何其中没有打印语句却能显示语句呀 [/B]

if的用法可以看看帮助.

没有打印语句却能显示的原因在于setq函数的返回值,也可以看看帮助里面的说法.

LADESIGNER · 发表于 2004-12-12 21:22:28

请问5楼，(ssget ":s:e" '((0 . "circle")))头一次看到，是什么用法？与（SSGET ‘（（0 . “CIRCLE”）））有区别吗？

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：新手上路请多关照:怎样确定所选图形为圆形

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子