cad中的qselect命令能用lisp寫出來嗎
<p>cad中的qselect命令能用lisp寫出來嗎</p><p>是怎麼寫的,</p><p>謝謝</p> ET工具中的ssx就相当这个功能的扩展。 我也想知道！帮顶一下。 <p>那就是说不能直接用command "qselect"这样写出来了</p> 如果你装了et工具的话，没有问题的呀这个是一段原代码。可以完成你说的功能，甚至更强。
<p>;;本程序用来批量选目标,在响应操作命令时,可在命令名前加',即'plxmb形式<br/>(defun zgyxd (str1 str2) (= (strcase str1) (strcase str2)))<br/>(defun c:plxmb (/ lst xuxag bnm clr stlx textflag<br/> wzz wzhd tcm xxm ztm hdz ss len<br/> fs<br/> )<br/> (initget 7 "Yes No ")<br/> (setq fs (getkword "\n是否只在手动选择内筛选? Yes/<No>:"))<br/> (setq lst '())<br/> (princ<br/> "\n>>B 图块/C 颜色/E 实体/LA 图层/LT 线型/S 字体/T 厚度/<退出>:"<br/> )<br/> (initget 7<br/> "Block Color Entity LAyer LType Style Thickness "<br/> )<br/> (setq xuxag (getkword))<br/> (while (/= xuxag "")<br/> (cond<br/> ((= xuxag "Block")<br/> (setq bnm (getstring "\n>>块名:"))<br/> (setq lst (append lst (list (cons 0 "insert") (cons 2 bnm))))<br/> )<br/> ((= xuxag "Color")<br/> (setq clr (getint "\n>>颜色号:"))<br/> (setq lst (append lst (list (cons 62 clr))))<br/> )<br/> ((= xuxag "Entity")<br/> (setq stlx (getstring "\n>>实体类型:"))<br/> (setq lst (append lst (list (cons 0 stlx))))<br/> (cond<br/> ((zgyxd stlx "text")<br/> (initget 7 "Content Style Thickness Hight ")<br/> (setq textflag<br/> (getkword<br/> "\n>>Content 内容/Style 文字样式/Thickness 厚度/Hight 字高/<退出>:"<br/> )<br/> )<br/> (while (/= textflag "")<br/> (cond ((= textflag "Content")<br/> (setq wzz (getstring "\n>>文字内容为:"))<br/> (setq lst (append lst (list (cons 1 wzz))))<br/> )<br/> ((= textflag "Style")<br/> (setq wzz (getstring "\n>>文字样式名:"))<br/> (setq lst (append lst (list (cons 7 wzz))))<br/> )<br/> ((= textflag "Thickness")<br/> (setq wzhd (getreal "\n>>文字厚度值:"))<br/> (setq lst (append lst (list (cons 39 wzhd))))<br/> )<br/> ((= textflag "Hight")<br/> (setq wzhd (getreal "\n>>文字高度值:"))<br/> (setq lst (append lst (list (cons 40 wzhd))))<br/> )<br/> )<br/> (initget 7 "Content Style Thickness Hight ")<br/> (setq textflag<br/> (getkword<br/> "\n>>Content 内容/Style 文字样式/Thickness 厚度/Hight 字高/<退出>:"<br/> )<br/> )<br/> )<br/> )<br/> ((zgyxd stlx "circle")<br/> (initget 7 " ")<br/> (setq textflag (getreal "\n>>Radius 半径/<退出>:"))<br/> (cond ((/= textflag "")<br/> (setq wzhd textflag)<br/> (setq lst (append lst (list (cons 40 wzhd))))<br/> )<br/> )<br/> )<br/> ((zgyxd stlx "point")<br/> (initget 7 " ")<br/> (setq textflag (getreal "\n>>Z <退出>:"))<br/> (cond ((/= textflag "")<br/> (setq wzhd textflag)<br/> (setq lst (append lst (list (cons 40 wzhd))))<br/> )<br/> )<br/> )<br/> ((zgyxd stlx "polyline")<br/> (initget 5 "Thickness Elevation ")<br/> (setq textflag<br/> (getkword "\n>>Thickness 厚度/Elevation 标高/<退出>:")<br/> )<br/> (cond ((= textflag "Thickness")<br/> (setq wzhd (getreal "\n>>厚度值:"))<br/> (setq lst (append lst (list (cons 39 wzhd))))<br/> )<br/> )<br/> (cond<br/> ((= textflag "Elevation")<br/> (setq wzhd (getreal "\n>>标高值:"))<br/> (setq lst (append lst (list (cons 10 (list 0 0 wzhd)))))<br/> )<br/> )<br/> )<br/> ((zgyxd stlx "line")<br/> (initget 5 " ")<br/> (setq textflag (getreal "\n>>Thickness 厚度/<退出>:"))<br/> (cond ((/= textflag "")<br/> (setq wzhd textflag)<br/> (setq lst (append lst (list (cons 39 wzhd))))<br/> )<br/> )<br/> )<br/> )<br/> )<br/> ((= xuxag "LAyer")<br/> (setq tcm (getstring "\n>>图层名:"))<br/> (setq lst (append lst (list (cons 8 tcm))))<br/> )<br/> ((= xuxag "LType")<br/> (setq xxm (getstring "\n>>线型名:"))<br/> (setq lst (append lst (list (cons 6 xxm))))<br/> )<br/> ((= xuxag "Style")<br/> (setq ztm (getstring "\n>>字体名:"))<br/> (setq lst (append lst (list (cons 7 ztm))))<br/> )<br/> ((= xuxag "Thickness")<br/> (setq hdz (getreal "\n>>厚度值:"))<br/> (setq lst (append lst (list (cons 39 hdz))))<br/> ) <br/> )<br/> (initget 7<br/> "Block Color Entity LAyer LType Style Thickness "<br/> )<br/> (setq xuxag<br/> (getkword<br/> "\n>>B 图块/C 颜色/E 实体/LA 图层/LT 线型/S 字体/T 厚度/<退出>:"<br/> )<br/> )<br/> ) ;_end while<br/> (if (= fs "Yes")<br/> (if (= lst '())<br/> (setq ss nil)<br/> (setq ss (ssget ":L" lst))<br/> )<br/> (if (= lst '())<br/> (setq ss nil)<br/> (setq ss (ssget "x" lst))<br/> )<br/> )<br/> (if ss<br/> (setq len (sslength ss))<br/> (setq len 0)<br/> )<br/> (princ (strcat "\n " (itoa len) " object(s) found!"))<br/> (setq ss ss)<br/>)</p><p></p><p></p><p>在CAD中，有些属性中有隐藏属性的图元用QSELECT是无法选出来的。这个程序没有这个问题。</p>
页:
[1]