skg123 发表于 2013-10-25 22:47:35

(setq ent (entget (ssname ss i)))
(setq typeA (cdr (assoc 1 ent)))
       (setq sxyz (strcat typeA"," sn ","sy ","sx11","sz))，代码这么修改后，可以将图面的文字序号变成点号序号；

偏爱云~小吴 发表于 2013-12-4 19:23:39

赞一个，不错的东西

shmily_yjx 发表于 2014-6-7 21:22:42

我是初学者，这个东西怎么用啊

skg123 发表于 2014-6-19 20:01:00

(defun c:TQZB()
(princ "\n选择所需输出的点或文字:")
;(setq ss (ssget ));;选取坐标点
(setq ss(ssget (list(cons 8 "GCD")(cons 2 "GC200"))))
(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)) )
(progn
(setq lxyz (cdr (assoc 10 ept)))
(setq sx (rtos (nth 1 lxyz)));将坐标值实数转换成字符
(setq sy (rtos (nth 0 lxyz)))
(setq sz (rtos (nth 2 lxyz)))
(setq i1 (+ i 1));计算点序号
(setq sn (rtos i1 2 0));将序号实数转换成字符
(setq sxyz (strcat sn",," sy "," sx "," sz))
(write-line sxyz ff)
)
)
(setq i (+ i 1))
);repeat
)
(prompt "*提取地图中的高程点坐标值 << 命令:TQZB >> *输出格式（点号,, Y，X，Z）**")
(prin1)

zenum 发表于 2014-8-10 16:56:02

学习了谢谢分享

qunaihan 发表于 2014-8-22 21:39:54

赞一个，真是不错的东西!

qunaihan 发表于 2014-8-22 22:54:45

读取桩基的编号文本，将编号作为点号。运行时出现：错误: 语法错误。

fyw12345 发表于 2016-5-6 13:42:51

确实有用，对于学习lisp输出excel很有帮助！

yefei812678 发表于 2024-2-23 16:38:01


不错
不错
不错
页: 1 [2]
查看完整版本: 提取文字插入点坐标【测量坐标格式】