如何快速设置单行文字Z字？

飞鹰158

      CAD中单行文字Z值，如何快速设置？

晨曦CAD

2. ;; 定义一个函数，用于设置单行文字Z坐标
   
3. (defun c:settextz ()
   
4.   (vl-load-com)
   
5. 
   
6.   ;; 获取当前文档中的所有单行文字
   
7.   (setq entities (vlax-get-Objects (vla-get-activedocument (vlax-get-acad-object)) '((0 . "TEXT"))))
   
8. 
   
9.   (foreach entity entities
   
10.     (setq text (vlax-get-property entity 'textString))
    
11.     (setq position (vlax-get-property entity 'insertionpoint))
    
12. 
    
13.     ;; 设置单行文字的Z坐标为0
    
14.     (setq position (vlax-safearray->list (vlax-make-safearray vlax-vbDouble (cons 0 3))))
    
15.     (setq (nth 0 position) (car (vlax-safearray->list (vlax-get-property entity 'insertionpoint))))
    
16.     (setq (nth 1 position) (cadr (vlax-safearray->list (vlax-get-property entity 'insertionpoint))))
    
17.     (setq (nth 2 position) 0)
    
18. 
    
19.     (vla-put-textString entity text position)
    
20. 
    
21.     (vlax-release-object entity)))
    
22. 
    
23. (princ))
    

;; 定义一个函数，用于设置单行文字Z坐标<br /> (defun c:settextz ()<br />   (vl-load-com)<br /> <br />   ;; 获取当前文档中的所有单行文字<br />   (setq entities (vlax-get-Objects (vla-get-activedocument (vlax-get-acad-object)) '((0 . "TEXT"))))<br /> <br />   (foreach entity entities<br />     (setq text (vlax-get-property entity 'textString))<br />     (setq position (vlax-get-property entity 'insertionpoint))<br /> <br />     ;; 设置单行文字的Z坐标为0<br />     (setq position (vlax-safearray->list (vlax-make-safearray vlax-vbDouble (cons 0 3))))<br />     (setq (nth 0 position) (car (vlax-safearray->list (vlax-get-property entity 'insertionpoint))))<br />     (setq (nth 1 position) (cadr (vlax-safearray->list (vlax-get-property entity 'insertionpoint))))<br />     (setq (nth 2 position) 0)<br /> <br />     (vla-put-textString entity text position)<br /> <br />     (vlax-release-object entity)))<br /> <br /> (princ))<br />

以上代码由ChatGPT给出

飞鹰158

晨曦CAD 发表于 2022-12-6 18:54
以上代码由ChatGPT给出

提示语法错误。（把获取单行文字改为框先单行文字）