Question

求CAD的LSP程序

选择一个图形，则此图形所在图层的所有图形都被选中。

Answer 1

(defun c:tes ( / #k2 #kw c8)
(setvar "cmdecho" 0)
(setvar "blipmode" 0)
(if (and (setq c8 (entsel "\n请选择参考图层"))
(setq c8 (cdr (assoc 8 (entget (car c8)))))
(princ "\n请选择这个图层的对象")
(setq #kw (ssget (list (cons 8 c8))))
)
(progn
(initget "V C S E")
(if (setq #k2 (getkword (strcat "\n请选择动作方式或[选择(S)/移动(V)/复制(C)/删除(E)]:<" "S" ">")))
(setq #k2 (strcase #k2))
(setq #k2 "S")
)
(cond
((= #k2 "V") (command "_.Move" #kw "" pause) )
((= #k2 "C") (command "_.Copy" #kw "" pause) )
((= #k2 "E") (command "_.Erase" #kw "") )
((= #k2 "S") (progn (sssetfirst nil #kw) (pause) ) )
)
)
)
(prin1)
)

追问

这个我也搜索到了，不好用，现在用出错。我希望有输入命令，点击图形，程序直接选中整个图层的图形的程序