社区 › Auto Lisp › 如何选择对象创建

vanowm 发表于 2022-7-5 20:03:59

如何选择对象创建

你好
我有一个函数可以画线：
(defun drawLine (start end)
   (entmakex (list
               '(0 . "LINE")
               '(100 . "AcDbEntity")
               '(100 . "AcDbLine")
               '(8 . "")
               (cons 9 start)
               (cons 10 end)
             )
   )
)

 
如何使其选择该线，以便用夹点显示？
 
非常感谢。

pBe 发表于 2022-7-5 20:20:10

奇怪为什么你用9作为起始点
 
(defun drawLine (start end)
   (entmakex (list
               '(0 . "LINE")
               '(100 . "AcDbEntity")
               '(100 . "AcDbLine")
               ;'(8 . "")
               (cons 10 start)
               (cons 11 end)
             )
   )
)
 
 
(defun c:demo ()
(setq ss (ssadd))
(setq p1 (getpoint))
(setq p2 (getpoint p1))

        (setq newline (drawLine p1 p2))
(sssetfirst nil (ssadd newline ss ))
)

vanowm 发表于 2022-7-5 20:27:37

感谢您的回复。它起作用了。

Lee Mac 发表于 2022-7-5 20:42:25

请注意，如果在没有选择集参数的情况下调用ssadd，则提供的实体将自动添加到新的选择集，例如：
还要注意，线实体不需要子类标记（DXF组100）：
4

pBe 发表于 2022-7-5 20:53:46

接得好LM
 
也很好的通话（trans p 1 0）

Lee Mac 发表于 2022-7-5 20:55:44

别担心，pBe！

vanowm 发表于 2022-7-5 21:04:58

非常感谢你。
这些小细节对新手非常有用！再次感谢您抽出时间来教我们

查看完整版本: 如何选择对象创建