新人第四贴，请老师们完善下代码.（已解决）

Lispboy

rsent 发表于 2014-12-14 19:21
只是感觉不太流畅。。。选择的时候是 2个点 ，要是可以改为1个框选就好了。 不知道怎么确定框选的 2个对角 ...

选择2点，和一个框选有什么不同吗？{:soso_e132:}

rsent

Lispboy 发表于 2014-12-14 19:29
选择2点，和一个框选有什么不同吗？

(DEFUN C:so()
(setq s (ssget))
(setvar "TILEMODE" 0)
(command "solprof" s "" "Y" "Y" "Y")
(setvar "TILEMODE" 1)
(setq s1 (ssget  "p" '((8 . "ph*"))))
(command ".erase" s1 "")
(princ a)
)



帮忙修改下。。我不知道怎么重复第一次 的选择集。  

rsent

2. 
   
3. (DEFUN C:sol()
   
4. (command "ucs" "v")
   
5. (setq s (ssget))
   
6. (setvar "TILEMODE" 0)
   
7. (command "solprof" s "" "Y" "Y" "Y")
   
8. (setq ph (entlast))
   
9. (command "erase" ph "")
   
10. (setq pv (entlast))
    
11. (setvar "TILEMODE" 1)
    
12. (command "cutclip" pv "")
    
13. (command "ucs" "w")
    
14. (princ)
    
15. )

<br /> (DEFUN C:sol()<br /> (command "ucs" "v")<br /> (setq s (ssget))<br /> (setvar "TILEMODE" 0)<br /> (command "solprof" s "" "Y" "Y" "Y")<br /> (setq ph (entlast))<br /> (command "erase" ph "")<br /> (setq pv (entlast))<br /> (setvar "TILEMODE" 1)<br /> (command "cutclip" pv "")<br /> (command "ucs" "w")<br /> (princ)<br /> )