llsheng_73 发表于 2014-2-10 15:48:52

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

ynhh 发表于 2014-2-10 15:55:21

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

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

sc邵程 发表于 2015-11-18 10:45:53

学习了，还是很有用的
页: 1 [2]
查看完整版本: 用变量名达到同时画点和写变量名字的功能