怎样获得块内的直线

54256

1. (defun c:rb(/ oldos #98 btype p0 p01 p1 pt1 pt2 pt3 pt param1 param2 ent)
   
2. (setvar "cmdecho" 0)
   
3. (command "undo" "c" "")
   
4. (command "undo" "be")
   
5. (setq oldos (getvar "osmode"))
   
6. 
   
7. (setvar "osmode" 512)
   
8. (setq p0 (getpoint "\n  点取线上插入点..."))
   
9. 
   
10. (setq p01 (list (+ (nth 0 p0) 10) (+ (nth 1 p0) 10)))
    
11. (setvar "osmode" 0)
    
12. (SETQ #98 (SSGET "c" p0 p01))
    
13. (setq #98 (entget (ssname #98 0)))
    
14. (SETQ btype(CDR (ASSOC 0 #98)))
    
15. 
    
16. (if (= btype "LINE")
    
17.   (SETQ pt1(CDR (ASSOC 10 #98))
    
18.         pt2(CDR (ASSOC 11 #98)))
    
19. )
    
20. 
    
21. (if (= btype "LWPOLYLINE")
    
22.   (setq ent (CDR (ASSOC -1 #98))
    
23.         pt (vlax-curve-getclosestpointto ent p0)
    
24.         param1 (fix (vlax-curve-getparamatpoint ent pt))
    
25.         param2 (1+ param1)
    
26.         pt1 (vlax-curve-getpointatparam ent param1)
    
27.         pt2 (vlax-curve-getpointatparam ent param2))
    
28. )
    
29. 
    
30. (if  (and (/= btype "LINE") (/= btype "LWPOLYLINE"))
    
31.   (progn
    
32.   (setvar "osmode" 512)
    
33.   (alert "对不起，请再选择所在墙面上任一点!")
    
34.   (setq pt3 (getpoint "\n  选择所在墙面上任一点..."))     
    
35.   (SETQ pt1 p0
    
36.         pt2 pt3 )  
    
37.   );end-progn
    
38. )
    
39. 
    
40. 
    
41. (setq AN (ANGLE pt2 pt1))
    
42. (SETQ AN (ANGTOS AN 0 2))
    
43. 
    
44. 
    
45. ;(COMMAND "INSERT" "gy" P0 "1" "1" an)
    
46. (command "text" "s" "standard" "c" p0 400 an "123")
    
47. 
    
48. (setvar "osmode" oldos)
    
49. (command "ucs" "")
    
50. (command "undo" "e")
    
51. (setvar "cmdecho" 1)
    
52. (princ)
    
53. )
    

(defun c:rb(/ oldos #98 btype p0 p01 p1 pt1 pt2 pt3 pt param1 param2 ent) <br /> (setvar "cmdecho" 0)<br /> (command "undo" "c" "")<br /> (command "undo" "be")<br /> (setq oldos (getvar "osmode"))<br /> <br /> (setvar "osmode" 512)<br /> (setq p0 (getpoint "\n  点取线上插入点...")) <br /> <br /> (setq p01 (list (+ (nth 0 p0) 10) (+ (nth 1 p0) 10)))<br /> (setvar "osmode" 0)<br /> (SETQ #98 (SSGET "c" p0 p01))<br /> (setq #98 (entget (ssname #98 0)))<br /> (SETQ btype(CDR (ASSOC 0 #98)))<br /> <br /> (if (= btype "LINE")<br />   (SETQ pt1(CDR (ASSOC 10 #98))<br />         pt2(CDR (ASSOC 11 #98)))<br /> )<br /> <br /> (if (= btype "LWPOLYLINE")<br />   (setq ent (CDR (ASSOC -1 #98))<br />         pt (vlax-curve-getclosestpointto ent p0)<br />         param1 (fix (vlax-curve-getparamatpoint ent pt))<br />         param2 (1+ param1)<br />         pt1 (vlax-curve-getpointatparam ent param1)<br />         pt2 (vlax-curve-getpointatparam ent param2))<br /> )<br /> <br /> (if  (and (/= btype "LINE") (/= btype "LWPOLYLINE"))<br />   (progn<br />   (setvar "osmode" 512)<br />   (alert "对不起，请再选择所在墙面上任一点!")<br />   (setq pt3 (getpoint "\n  选择所在墙面上任一点..."))     <br />   (SETQ pt1 p0<br />         pt2 pt3 )  <br />   );end-progn<br /> )<br /> <br /> <br /> (setq AN (ANGLE pt2 pt1))<br /> (SETQ AN (ANGTOS AN 0 2))<br /> <br /> <br /> ;(COMMAND "INSERT" "gy" P0 "1" "1" an)<br /> (command "text" "s" "standard" "c" p0 400 an "123") <br /> <br /> (setvar "osmode" oldos)<br /> (command "ucs" "")<br /> (command "undo" "e")<br /> (setvar "cmdecho" 1)<br /> (princ)<br /> )<br />

    我的程序的目的是选择直线上的某一点，在该点上插入一个图块（这里为了代码在别的机器上兼容，改为写一行文字，道理是一样的），图块的角度按照直线的斜率。
    当对象是直线或者多段线的情况，我已经解决了，但当对象是在块中的某一直线的话，我现在用了一个笨办法，通过再输入一个点来获得。
   我希望能够减少这个多出来的输入，工作中对于大量的操作来说，每次减少一次操作是很有意义的，希望高手指正

54256

版大，我的问题还没完全解决呢

原地踏步

既然是点取，用nentsel就可以了，干嘛非用ssget?