cuyongping 发表于 2013-8-14 13:58:18

可否提供一下源码！谢谢了！正需要了！253406939@qq.com

一新一意 发表于 2013-8-17 13:36:27

也在学习autolisp中，顶了

sixth 发表于 2013-9-3 18:52:13

顶，要是源码就更好了，能好好学习一下

freeok 发表于 2013-9-26 00:12:15

楼主大人直接放源码，再来个GIF，爆了！！

峰峰兒 发表于 2013-9-26 06:32:18

lizhiqiang9801 发表于 2013-9-29 14:20:30

好东西 帮顶顶源码

清风明月名字 发表于 2013-9-29 14:41:06

谢谢楼主的分享！很有用啊。

skg123 发表于 2013-10-25 22:53:37

本人使用了，提取文字的坐标不是桩中心坐标。适当做了修改、 各位注意，这个修改是针对我所在的工程，修改了0.3333；代码如下， 如要使用，请核对坐标；;;;;只能用于洋浦油库工程，因为X修正了0.33333   
(defun c:TQWZZB()
   (princ "\n选择所需输出的点（point）:")
   (setq ss (ssget ));;选取坐标点
   (setq n (sslength ss ));计算坐标点数量
      (setq ff (open (getfiled "文件保存为" "f:/" "dat" 1) "w"));保存路径
   (setq i 0)
   (repeat n
(setq spt (ssname ss i ))
    (setq ept (entget spt))
    (if (= (cdr (assoc 0 ept)) "TEXT")
   (progn
                                    (setq lxyz (cdr (assoc 10ept)))
;(setq sx (rtos (nth 1 lxyz)));将坐标值实数转换成字符
(setq sx1 (- (cadr lxyz) 0.3333))（请注意坐标值根据本工程修正了0.3333）如果想别的用途，将上句引号删除，strcat之后 sx11改为sx
(setq sX11 (rtos sx1 2 3))

       (setq sy (rtos (nth 0 lxyz)2 3))
       (setq sz (rtos (nth 2 lxyz)2 3))
                                        (setq i1 (+ i 1));计算点序号
                                        (setq sn (rtos i1 2 0));将序号实数转换成字符

(setq ent (entget (ssname ss i)))
(setq typeA (cdr (assoc 1 ent)))

       (setq sxyz (strcat typeA"," sn ","sy ","sx11","sz))
       (write-line sxyz ff)
    )
    )
    (setq i (+ i 1))
   );repeat
)
(prompt "*只适合TEXT点 << 命令:TQWZZB >> *输出格式（点号,, Y，X，Z）**")
(prin1)

xujinhua 发表于 2013-11-22 10:41:41

好东西啊..顶到你出源码,,

峰峰兒 发表于 2014-1-8 20:38:30

页: 1 2 [3] 4 5 6 7 8
查看完整版本: 手痒，也发一个手工/批量 编号、坐标标注程序