2、其次,进入lsp应用程序,点击左上角的文件。
3、最后,衫配在文件中下拉到最后,找到下载途径,并设置下载途径下载保存方式是刚才自建的自定义目录,即可。
(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)
)
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)