Gray-wolf 发表于 2018-6-2 17:13:03

多行文本转单行单线字体

;;多行文本转单行单线字体
(defun c:zt (/ dxflst e i ii len n newstr num obj pt ss str strnum tn tnlst tnlstn txthight)
    (setvar "cmdecho" 0)
   
(setq ss (ssget '((0 . "MTEXT"))))
(setq n 0)
(repeat (sslength ss)
    (setq e (ssname ss n))
      (setq dxflst (EH-Get-EntDxf e '(10 40))) ;;返回格式 ((363.089 97.6808 0.0) 46.3501)
      (setq pt (car dxflst))
      (setq txthight (cadr dxflst))
      (setq pt (list (car pt)(- (cadr pt) txthight)))
      ;;
      (setq obj (vlax-ename->vla-object e))
      (setq Str (vlax-get obj 'TextString))
      ;;
      (setq strnum (vl-string->list Str));字符串转ascii代码表
      (setq len (length strnum))      
      ;;
      (setq i 0);取表内asccii代码值用
      (setq ii 0);变量编号用
      (setq tn "tn");变量编号用
      (setq tnlstn '()) ;临时变量赋值用列表      
      ;;
      (repeat len
            (setq num (nth i strnum))
            (if (or
                        (= num 123)
                        (= num 125)
                        (= num 92)
                        (= num 59)
                        (= num 44)
                        (and (= num 161)(= (nth (1+ i) strnum) 162))
                        (and (= num 162) (= (nth (1- i) strnum) 161))
                        (and (= num 163)(= (nth (1+ i) strnum) 187))
                        (and (= num 187) (= (nth (1- i) strnum) 163))
                        (and (= num 163)(= (nth (1+ i) strnum) 172))
                        (and (= num 172)(= (nth (1- i) strnum) 163))
                  )
                (progn   
                  ;(setq tnlst (strcat tn (itoa (setq ii (1+ ii)))))
                  (setq tnlst nil)
                  (setq tnlstn '())
                )
                (progn
                  (if (null tnlst)(setq tnlst (strcat tn (itoa (setq ii (1+ ii))))))
                  (set (read tnlst) (setq tnlstn (append tnlstn (list num))))
                )
            );if
            (setq i (1+ i))
      ) ;repeat文本截断
      
      (setq newstr (vl-list->string (vl-symbol-value (read (strcat tn (itoa ii))))));ascii代码表转字符串
      (if newstr               
            (EH-Make-Text pt txthight nil 0 nil newstr "中Z-04--墙料编号")
      )
      
      ;变量清空
      (setq ii (1+ ii))               
      (repeat ii                  
            (setq tnlst (strcat tn (itoa (setq ii (1- ii)))))
            (set (read tnlst) nil)
            
      )
      (vla-Delete obj)
      (setq n (+ n 1))
    )
    (setvar "cmdecho" 1)
    (princ)
);defun_end

cghdy 发表于 2021-11-17 09:21:28

多行文本炸开就是单行文本

yoyoho 发表于 2018-6-4 07:44:26

谢谢! Gray-wolf 分享收藏了!!!!

yoyoho 发表于 2018-6-4 08:14:31

缺少自定义函数
EH-Get-EntDxf
EH-Make-Text

664571221 发表于 2021-11-13 16:43:24

; 错误: no function definition: EH-GET-ENTDXF   兄弟看下

guosheyang 发表于 2021-11-14 09:25:37

(EH-Make-Textpttxthight nil 0 nil newstr "中Z-04--墙料编号")   这句没弄明白 生成文字的自定义函数中   两个nil是指的啥？

Klein 发表于 2023-1-16 10:43:03

似乎整复杂了，直接炸开不可以吗？直接炸开得到单行问题，再修改字体样式就行了
页: [1]
查看完整版本: 多行文本转单行单线字体