如何选择对象创建

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作为起始点

copy

(defun drawLine (start end)
   (entmakex (list
                 '(0 . "LINE")
                 '(100 . "AcDbEntity")
                 '(100 . "AcDbLine")
                 [b];'(8 . "")[/b]
                 (cons [b]10 [/b]start)
                 (cons 11 end)
             )
   )
)

copy

(defun c:demo ()
 (setq ss (ssadd))
(setq p1 (getpoint))
(setq p2 (getpoint p1))
         (setq newline (drawLine p1 p2))
(sssetfirst nil (ssadd newline ss ))
)