完善坐标标注程序--关于预览的问题（已解决）

4041186888

我写了一个坐标做标注的程序，选择一个多段线任意一点，标注出X，Y，转角，里程等数据，效果如下图

可是使用的时候，只能做到先选择多段线一点，再选取标注位置（如下图），然后才生成上图，这样程序就很不直观，很粗糙~

怎样才能达到下图效果呢，先选取多段线一点，然后选标注位置的时候会跟踪一条直线（就想画直线的命令一样）
最最最最好还能在椭圆处能预览生成的标注，跟随移动的鼠标一起预览，这样程序就漂亮多了，
使用的时候即使很复杂的图面，也可以看出来标注在哪里最舒服了，请问各位高手如何实现啊？

我把我的程序简化如下，请问如何修改，或各位大侠提示下思路~~小弟谢谢了
(defun bz ()
  (setq a (getpoint))
  (setq b (getpoint))
  (command "line" a b)
  (command "text" "ML" b 2 0 (rtos (car a) 2 2) )
)

zhynt

发个程序给你参考一下吧，这个事关于标高标注的。

4041186888

回复 zhynt 的帖子

十分感谢，无奈小弟学习LISP刚刚3个月。。。 。。。你的程序好多地方都看不懂呃。。。
请问大侠能不能直接给点提示之类的 只要能起到预览的作用就行

zhynt

回复 4041186888 的帖子

一个简单的例子

2. 
   
3. (defun C:yl (/ id pt1 pt2 txt_ss txt_ent)
   
4.   (SETQ ID T)
   
5.   (setq pt1 (getpoint "\n点取一点:"))
   
6.   (command "_.TEXT"
   
7.            "j"
   
8.            "bl"
   
9.            PT1
   
10.            300.0
    
11.            0
    
12.            (strcat "x=" (rtos (car pt1)) ",y=" (rtos (car pt1))) ;文字
    
13.   )
    
14.   (setq txt_ss (entlast))                                    ;选取该文字
    
15.   (setq txt_ent (entget txt_ss))                            ;取组码
    
16.   (while ID
    
17.     (SETQ pt2 (GRREAD T 4 0))
    
18.     (IF        (= 5 (CAR pt2))                                            ;鼠标跟踪
    
19.       (PROGN (REDRAW)                                            ;清屏
    
20.              (grdraw (cadr pt2) pt1 1 0)                    ;在屏幕上画一条线，
    
21.              (SETQ txt_ent (SUBST (CONS 11 (cadr pt2)) (ASSOC 11 txt_ent) txt_ent)) ;改组码
    
22.              (ENTMOD txt_ent)                                    ;改文字位置
    
23.              (ENTUPD txt_ss)
    
24.       )
    
25.     )
    
26. ;;;若点击鼠标左、右键或键盘任意按键，则取得当前鼠标位置，并退出循环
    
27.     (IF        (OR (= 3 (CAR pt2)) (= 2 (CAR pt2)) (= 11 (CAR pt2)))
    
28.       (PROGN (REDRAW)
    
29.              (SETQ ID NIL)
    
30.              (command "line" pt1 (cadr pt2) "")
    
31.       )
    
32.     )
    
33.   )
    
34. )
    

<br /> (defun C:yl (/ id pt1 pt2 txt_ss txt_ent)<br />   (SETQ ID T)<br />   (setq pt1 (getpoint "\n点取一点:"))<br />   (command "_.TEXT"<br />            "j"<br />            "bl"<br />            PT1<br />            300.0<br />            0<br />            (strcat "x=" (rtos (car pt1)) ",y=" (rtos (car pt1))) ;文字<br />   )<br />   (setq txt_ss (entlast))                                    ;选取该文字<br />   (setq txt_ent (entget txt_ss))                            ;取组码<br />   (while ID<br />     (SETQ pt2 (GRREAD T 4 0))<br />     (IF        (= 5 (CAR pt2))                                            ;鼠标跟踪 <br />       (PROGN (REDRAW)                                            ;清屏<br />              (grdraw (cadr pt2) pt1 1 0)                    ;在屏幕上画一条线，<br />              (SETQ txt_ent (SUBST (CONS 11 (cadr pt2)) (ASSOC 11 txt_ent) txt_ent)) ;改组码<br />              (ENTMOD txt_ent)                                    ;改文字位置<br />              (ENTUPD txt_ss)<br />       )<br />     )<br /> ;;;若点击鼠标左、右键或键盘任意按键，则取得当前鼠标位置，并退出循环<br />     (IF        (OR (= 3 (CAR pt2)) (= 2 (CAR pt2)) (= 11 (CAR pt2)))<br />       (PROGN (REDRAW)<br />              (SETQ ID NIL)<br />              (command "line" pt1 (cadr pt2) "")<br />       )<br />     )<br />   )<br /> )<br />

198526

好程序，顶起

4041186888

回复 zhynt 的帖子

万分的感谢这位大神啊，解决了全部问题，十分谢谢啊 我好好研究研究~

EMD

这个也是我想要达到的效果，下来研究一番。十分感谢

kx820506

感兴趣，但是不懂啊

戏男

我想要的是坐标标注全功能的