新开一贴，继续问块内直线的问题

54256

        昨天问了一个问题，版大给出了程序，可以解决问题，但具体到我的程序，多了一步输入。

        我的程序的目的是选择直线上的某一点，在该点上插入一个图块（这里为了代码在别的机器上兼容，改为写一行文字，道理是一样的），图块的角度按照直线的斜率。
        
        通过entsel选直线，getpoint获得插入点，需要输入两次，工作中对于大量的操作来说，每次减少一次操作是很有意义的，所以我想了个讨巧的办法，用一个10x10的窗通过SSGET来同时获得插入点和插入直线，对于建筑图来说，一般不会在10x10那么小的范围里有2个对象，基本能够实现。

        当对象是直线或者多段线的情况，我已经解决了，但当对象是在块中的某一直线的话，我现在用了一个笨办法，通过再输入一个点来获得，结果就是多了一次输入过程。

      下面是我的程序，对于(= btype "INSERT")，请问怎样取出直线的端点坐标。

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

<br /> (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 /> (setvar "osmode" 512)<br /> (setq p0 (getpoint "\n  点取线上插入点...")) <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 /> (if (= btype "LINE")<br />   (SETQ pt1(CDR (ASSOC 10 #98))<br />         pt2(CDR (ASSOC 11 #98)))<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 /> (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 /> (setq AN (ANGLE pt2 pt1))<br /> (SETQ AN (ANGTOS AN 0 2))<br /> ;(COMMAND "INSERT" "gy" P0 "1" "1" an)<br /> (command "text" "s" "standard" "c" p0 400 an "123") <br /> (setvar "osmode" oldos)<br /> (command "ucs" "")<br /> (command "undo" "e")<br /> (setvar "cmdecho" 1)<br /> (princ)<br /> )<br /> <br />

谢谢

Gu_xl

entsel 返回值为(list ename pt) ，第二个返回值就是选择的位置点，(setq pt (vlax-curve-getclosestpointto ename (trans pt 1 0))) 就得到直线上的点！

54256

谢谢版大，可以解决的，
另外想问一下，entsel 点选的时候，光标可以有变化吗，最好是像(setvar "osmode" 512)那样的

再次十分感谢