诚问如何自动获取交点坐标

peraperson

菜卷鱼 发表于 2014-3-21 14:30
还有点问题，自己去改

谢谢

菜卷鱼

peraperson 发表于 2014-3-21 17:15
谢谢

上次的有大问题，已经改成小问题了

菜卷鱼

经过听取黄大师的建议，改良了，应该符合要求，字高自己改

1. (defun c:vv( )
   
2. (setq p1(getpoint "\n第一点"))
   
3. (setq p2(getpoint p1 "\n第二点"))
   
4. (command "_.line" p1 p2 "")
   
5. (setq en (entlast ))
   
6. 
   
7. (setq ss(ssdel en(ssget "f" (list p1 p2) '((0 . "*line")))))
   
8. (setq i 0)
   
9. (repeat(sslength ss)
   
10. (setq it (vlax-invoke (vlax-ename->vla-object en) 'IntersectWith (vlax-ename->vla-object (ssname ss i)) acExtendNone))
    
11. (if (/= it nil)
    
12. (progn
    
13. (setq str (apply 'strcat (mapcar 'strcat  (mapcar 'rtos it) (list "," "," ""))))
    
14. (entmake (list '(0 . "text") (cons 1 str) (cons 10 it)(cons 40(*(getvar 'textsize)(getvar 'dimscale)) ) ))
    
15. ))
    
16. (setq i(1+ i))
    
17. )
    
18. (prin1)
    
19. )

(defun c:vv( )<br /> (setq p1(getpoint "\n第一点"))<br /> (setq p2(getpoint p1 "\n第二点"))<br /> (command "_.line" p1 p2 "")<br /> (setq en (entlast ))<br /> <br /> (setq ss(ssdel en(ssget "f" (list p1 p2) '((0 . "*line")))))<br /> (setq i 0)<br /> (repeat(sslength ss)<br /> (setq it (vlax-invoke (vlax-ename->vla-object en) 'IntersectWith (vlax-ename->vla-object (ssname ss i)) acExtendNone))<br /> (if (/= it nil)<br /> (progn <br /> (setq str (apply 'strcat (mapcar 'strcat  (mapcar 'rtos it) (list "," "," ""))))<br /> (entmake (list '(0 . "text") (cons 1 str) (cons 10 it)(cons 40(*(getvar 'textsize)(getvar 'dimscale)) ) ))<br /> ))<br /> (setq i(1+ i))<br /> )<br /> (prin1)<br /> )

自贡黄明儒

我听说使用command "_.line"要关闭捕捉的，使用entmake可以不关闭捕捉

菜卷鱼

自贡黄明儒 发表于 2014-3-22 12:38
我听说使用command "_.line"要关闭捕捉的，使用entmake可以不关闭捕捉

对的，但是这里没必要关，不过还是用entmake好