如何将文字转化为高程点？

xyp1964

依然小小鸟 发表于 2025-12-1 20:38
至今没解决

1. (defun xyp-Text2Gcd (s1 del-tnil / ar tx)
   
2.   (defun dxf (code elist) (cdr (assoc code elist)))
   
3.   "xyp-Text2Gcd 数字文本转高程点 (xyp-Text2Gcd s1数字文本 del-tnil原文本删除)"
   
4.   (if (and (=(xyp-DXF 0 s1)"TEXT")
   
5.            (setq tx (xyp-DXF 1 s1))
   
6.            (distof tx)
   
7.       )
   
8.     (progn
   
9.       (setq ar (getvar 'ATTREQ))
   
10.       (setvar 'ATTREQ 1)
    
11.       (command "-insert" "gc200" (xyp-DXF 10 s1) "" "" "" tx)
    
12.       (if del-tnil
    
13.         (entdel s1)
    
14.       )
    
15.       (setvar 'ATTREQ ar)
    
16.       (entlast)
    
17.     )
    
18.   )
    
19. )

(defun xyp-Text2Gcd (s1 del-tnil / ar tx)<br />   (defun dxf (code elist) (cdr (assoc code elist)))<br />   "xyp-Text2Gcd 数字文本转高程点 (xyp-Text2Gcd s1数字文本 del-tnil原文本删除)"<br />   (if (and (=(xyp-DXF 0 s1)"TEXT")<br />            (setq tx (xyp-DXF 1 s1))<br />            (distof tx)<br />       )<br />     (progn<br />       (setq ar (getvar 'ATTREQ))<br />       (setvar 'ATTREQ 1)<br />       (command "-insert" "gc200" (xyp-DXF 10 s1) "" "" "" tx)<br />       (if del-tnil<br />         (entdel s1)<br />       )<br />       (setvar 'ATTREQ ar)<br />       (entlast)<br />     )<br />   )<br /> )

gzxl

一年多的时间，楼主要是自动去学 lisp，早就解决了，提取文本(单行、多行)、文本的ascii、cass的gc200(表达Z值，其实也不需要gc200的，毕竟块参照，运行速度慢)，这些论坛都有 lisp 源码。
不去学也行，花点小费用，总会有 lisp 者低价解决的。