写给新手，也谈已知选择集中根据实体类型筛选实体及代码优化

srv2

程序越写越难维护, 这个观念对新手很有帮助.

xiaxiang

说得非常好！之前没有关注到这个帖子

xyp1964

;; 改成函数方式

2. 
   
3. ;; 使用方式： (aaa '("circle" "*line" "*text"))
   
4. (defun aaa (filterlst / i lst ft ss)
   
5.   (defun ssgetp        (ss filter)
   
6.     (vl-cmdf "select" ss "")
   
7.     (ssget "p" (list (cons 0 filter)))
   
8.   )
   
9.   (setq        i   1
   
10.         lst '()
    
11.   )
    
12.   (foreach a filterlst
    
13.     (setq lst (cons (strcat "ss" (itoa i)) lst)
    
14.           i   (1+ i)
    
15.     )
    
16.   )
    
17.   (setq        lst (reverse lst)
    
18.         ft  (mapcar '(lambda (x) (strcat x ",")) filterlst)
    
19.         ft  (apply 'strcat ft)
    
20.         ss  (ssget (list (cons 0 ft)))
    
21.   )
    
22.   (mapcar '(lambda (x y) (set x (ssgetp ss y)))
    
23.           (mapcar 'read lst)
    
24.           filterlst
    
25.   )
    
26. )
    

<br /> ;; 使用方式： (aaa '("circle" "*line" "*text"))<br /> (defun aaa (filterlst / i lst ft ss)<br />   (defun ssgetp        (ss filter)<br />     (vl-cmdf "select" ss "")<br />     (ssget "p" (list (cons 0 filter)))<br />   )<br />   (setq        i   1<br />         lst '()<br />   )<br />   (foreach a filterlst<br />     (setq lst (cons (strcat "ss" (itoa i)) lst)<br />           i   (1+ i)<br />     )<br />   )<br />   (setq        lst (reverse lst)<br />         ft  (mapcar '(lambda (x) (strcat x ",")) filterlst)<br />         ft  (apply 'strcat ft)<br />         ss  (ssget (list (cons 0 ft)))<br />   )<br />   (mapcar '(lambda (x y) (set x (ssgetp ss y)))<br />           (mapcar 'read lst)<br />           filterlst<br />   )<br /> )<br />

preone

看了半天  还是没看出来 (sssetfirst nil ss)与(vl-cmdf "select" ss "")的区别
主要是不明白 sssetfirst函数的用法~~帮助文件里讲的感觉也很晦涩~~
还请楼主明示~~

e2002

vl-cmdf 也是 command那样的.

1. 
   
2. vl-cmdf 函数和 command 函数类似，但在求值传递的参数方面有所不同。vl-cmdf 函数在执行 AutoCAD 命令之前检查所有的描述参数，如果在这一过程中检测到错误，将不再执行 AutoCAD 命令。然而，command 函数将每个参数顺序传递给 AutoCAD，所以在发现错误之时命令可能已经开始执行了。
   
3. 
   
4. 如果对命令的调用中包含对其他函数的调用，则 vl-cmdf 在执行命令之前先进行函数调用。而 command 则在开始执行命令后执行定函数调用。
   
5. 
   
6. 有些命令在通过 vl-cmdf 调用时表现正常，而在通过 command 调用时则会失败。vl-cmdf 函数主要突破了在 command 中不能使用 getxxx 的限制。
   

复制代码

langjs

写的很好，技术贴必须支持

风中寻觅

很好的学习代码~！

xuexicad1960

刚看到这个帖子，   希望这样的帖子多点 ，供新手学习提高。

fcut2004

很不错，学习了。

fcut2004

2. ;桩轴力求和
   
3. (defun c:dd (/ ss ss1 ss2 n i sum1 sum2)
   
4. 
   
5. (defun wmg-ssgetp (ss filter)
   
6. (sssetfirst nil ss)
   
7.   (ssget "p" (list (cons 8 filter)))
   
8. ) ;wmg-ssgetp 子函数
   
9. 
   
10. (setq ss1 nil)
    
11. (setq ss2 nil )
    
12. (setq ss (ssget '((0 . "TEXT")(8 . "81,82"))));选择对象
    
13. (setq ss1(wmg-ssgetp  ss "82") );调用子函数，创建ss1选择集
    
14. (setq ss2(wmg-ssgetp  ss "81") );调用子函数，ss2选择集
    
15. 
    
16. ;下面对ss1操作
    
17. (setq n (sslength ss1))
    
18. (setq i 0 sum1 0)
    
19. (repeat n
    
20. (setq string (cdr (assoc 1 (entget (ssname ss1 i)))))
    
21. (setq a1 (vl-string-search  "," string))
    
22. (setq string (substr string 3 (-  a1 2)))
    
23. (setq sum1 (+ sum1 (atof string)))
    
24. (setq i (+ i 1))
    
25. )
    
26. 
    
27. ;下面对ss2操作
    
28. (setq i 0 sum2 0 )
    
29. (setq n (sslength ss2))
    
30. (repeat n
    
31. (setq string (cdr (assoc 1 (entget (ssname ss2 i)))))
    
32. (setq sum2 (+ sum2 (atof string)))
    
33. (setq i (+ i 1))
    
34. )
    
35. 
    
36. (setq sum1 (+ sum1 sum2))
    
37. 
    
38. (setq p1 (getpoint "\n计算结果基点: "))
    
39. (command "text" "ml" p1 "150"  "0" (strcat "\n 轴力和："(rtos sum1 2 0) "") ""); 轴力结果
    
40. )
    
41. 
    

;桩轴力求和<br /> (defun c:dd (/ ss ss1 ss2 n i sum1 sum2) <br /> <br /> (defun wmg-ssgetp (ss filter)<br /> (sssetfirst nil ss)<br />   (ssget "p" (list (cons 8 filter)))<br /> ) ;wmg-ssgetp 子函数<br /> <br /> (setq ss1 nil)<br /> (setq ss2 nil )<br /> (setq ss (ssget '((0 . "TEXT")(8 . "81,82"))));选择对象<br /> (setq ss1(wmg-ssgetp  ss "82") );调用子函数，创建ss1选择集<br /> (setq ss2(wmg-ssgetp  ss "81") );调用子函数，ss2选择集<br /> <br /> ;下面对ss1操作<br /> (setq n (sslength ss1))<br /> (setq i 0 sum1 0)<br /> (repeat n<br /> (setq string (cdr (assoc 1 (entget (ssname ss1 i)))))<br /> (setq a1 (vl-string-search  "," string))<br /> (setq string (substr string 3 (-  a1 2)))<br /> (setq sum1 (+ sum1 (atof string)))<br /> (setq i (+ i 1))<br /> )<br /> <br /> ;下面对ss2操作<br /> (setq i 0 sum2 0 )<br /> (setq n (sslength ss2))<br /> (repeat n<br /> (setq string (cdr (assoc 1 (entget (ssname ss2 i)))))<br /> (setq sum2 (+ sum2 (atof string)))<br /> (setq i (+ i 1))<br /> )<br /> <br /> (setq sum1 (+ sum1 sum2))<br /> <br /> (setq p1 (getpoint "\n计算结果基点: "))<br /> (command "text" "ml" p1 "150"  "0" (strcat "\n 轴力和："(rtos sum1 2 0) "") ""); 轴力结果<br /> )<br /> <br />

参考上面的讨论，我写了个轴力求和的代码。轴力的数值分别在81 82 图层，下面的代码两个图层一起选择的时候，就没有问题，但是如果只选其中一个图层时，就出错了 “*error* 函数中出错no function definition: &TSTY”。请问是怎么回事呢？