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

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

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

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

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

陈伯雄 · 发表于 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  在程序中，对象选择集组建和对象的响应

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

发表回复

精选推荐