请教各位高手，用AutoLisp语言能编写出精确选择图纸里任一对像的程序吗？

蜡笔小新 · 发表于 2002-8-24 02:19:00

请教各位高手，用AutoLisp语言能编写出精确的选择图纸里任一对像的程序吗？如果有请告诉我方法好吗？我的邮箱是wangzhi791027@msn.com，回贴也可以。谢谢~！[glow=255,red,2]文字[/glow]

陈伯雄 · 发表于 2002-8-24 08:58:00

蜡笔小新 · 发表于 2002-8-24 14:42:00

陈伯雄 · 发表于 2002-8-24 15:28:00

蜡笔小新 · 发表于 2002-8-24 18:15:00

我用AutoLisp依顺画了一条直线、一个矩形、一个圆，然后用AutoLisp程序选取（我是指用程式直接选这个图元，不用用户参与）最早画的直线，再把这条直线变成折线。请问要实现以上所说，我得用什么方法，请指教。谢谢~！

雷 · 发表于 2002-8-24 23:16:00

陈伯雄 · 发表于 2002-8-25 09:12:00

首先，用 (SSAdd)定义一个空的选择集SS备用。当画完第一个对象后，立即把它的对象名放置在名为 FIRST的变量中，并把它填入 SS 集。之后就可以连续使用 (Command) 函数画完所有的有关对象。最后用 (While) 函数从头顺次提取，得到的选择集SS 就可以用了(T409.LSP)。
(Defun C:SS1()
   (SetQ p (GetPoint "基点: ") ss (SsAdd))
   (Command "color" 2 "line" p "@100,0" "")
   (SetQ first (EntLast) ss (SsAdd first ss))
   (Command "arc" "" "@20,20"
               "line" "" "@0,50" "@ -100,0" p ""
   )
   (While (SetQ s (EntNext first))
            (SetQ ss (SsAdd s ss) first (EntNext first))
   )
   (Command "color" 3 "hatch" "u" 45 10 "n" ss "")
)
以上摘自《Visual LISP程序设计——技巧与范例》4.6.2  在程序中，对象选择集组建和对象的响应

陈伯雄 · 发表于 2002-8-25 09:21:00

蜡笔小新 · 发表于 2002-8-25 12:14:00

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

请教各位高手，用AutoLisp语言能编写出精确选择图纸里任一对像的程序吗？

问的怪，AutoLISP中有“不精确的选择”么？

谢谢，不过我想知道可以用什么函数或什么方法实现。

那您看看最上面的“怎样提问”，之后再重新问一下，可能更痛快...

呵呵，谢谢，我知道你说的是什么意思了。：）那么现在我重新问一下。

用(setq a (entlast))不可以吗？

这样做...

不可以，因为要用户参与...

嗯，小D知道了，谢谢以上两位老G的指教哦。