用变量名达到同时画点和写变量名字的功能

llsheng_73

直接在一个专门的图层上展点写出点号就好了

1. (defun zhandh(/ fl a b p)
   
2.   (setq fl(getfiled"打开数据文件(点号,编码,y,x,h)""C:""dat"4);;;;数据文件格式(南方cass坐标数据格式)
   
3.   fl(if(findfile fl)(open fl"r")))
   
4.   (if fl
   
5.     (progn
   
6.       (while(setq a(read-line fl))
   
7.   (setq b(substr a 1(vl-string-search","a))
   
8.         a(substr a(+(vl-string-search","a)2))
   
9.         a(substr a(+(vl-string-search","a)2))
   
10.          p(read(strcat"("(VL-STRING-TRANSLATE"," " " a)")")))
    
11.   (entmake(list'(0 . "TEXT")(cons 8 "图层名自己根据需要设定")(cons 10 p)(cons 40 1)(cons 1 b)));;;文字高度可以自己改
    
12.   (entmake(list'(0 . "POINT")(cons 10 p)))
    
13.   )
    
14.   (close fl)))
    
15.   )

(defun zhandh(/ fl a b p)<br />   (setq fl(getfiled"打开数据文件(点号,编码,y,x,h)""C:""dat"4);;;;数据文件格式(南方cass坐标数据格式)<br />   fl(if(findfile fl)(open fl"r")))<br />   (if fl<br />     (progn<br />       (while(setq a(read-line fl))<br />   (setq b(substr a 1(vl-string-search","a))<br />         a(substr a(+(vl-string-search","a)2))<br />         a(substr a(+(vl-string-search","a)2))<br />          p(read(strcat"("(VL-STRING-TRANSLATE"," " " a)")")))<br />   (entmake(list'(0 . "TEXT")(cons 8 "图层名自己根据需要设定")(cons 10 p)(cons 40 1)(cons 1 b)));;;文字高度可以自己改<br />   (entmake(list'(0 . "POINT")(cons 10 p)))<br />   )<br />   (close fl)))<br />   )

ynhh

llsheng_73 发表于 2014-2-10 15:48
直接在一个专门的图层上展点写出点号就好了

感谢你的指点
我的要求没这么高的
只是想把程序开发过程中的一些经历
也就是变量名设置的位置，在开发图中做个记号，以便将来好识别修改。

sc邵程

学习了，还是很有用的