将Autocad中的Word分解为ind

suryacad · 发表于 2022-7-5 20:22:53

分解多个单词
分解后，单词应拆分为
W=单个字符
O=个性等等。

谢谢

suryacad · 发表于 2022-7-5 20:32:41

谢谢你的引导
http://www.eng-tips.com/viewthread.cfm?qid=95572
但是，lisp在Autocad 2012-Start命令中使用XTEXT返回错误。；错误：输入列表格式不正确
我需要它在一张乱七八糟的图纸上做一些数字和单词排序。

Tharwat · 发表于 2022-7-5 20:36:51

这意味着例程需要一个紧括号，在该程序中，它需要位于程序的末尾。

suryacad · 发表于 2022-7-5 20:39:00

谢谢塔瓦。

copy

; TIP #637 XTEXT.LSP By Ashoke Bhattacharya CADalyst Magazine March 1991
; ------------------------------------------------------------------------
; DESCRIPTION:  Explodes a line of text into its component letters. 
; ------------------------------------------------------------------------
(princ "\nStart command with XTEXT.")(graphscr)(princ)
; ------------------------------------------------------------------------
(defun C:XTEXT ()
 (setvar "CMDECHO" 0)
 (setq A1 (entget (car (entsel
   "\nSelect text: "))))
 (setq A2 (cdr (assoc -1 A1)))
 (command "ERASE" A2 "")
 (setq A (cdr (assoc 1 A1)))
 (setq SP (cdr (assoc 10 A1)))
 (setq HT (cdr (assoc 40 A1)))
 (setq B (strlen A))
 (setq B1 1)
 (repeat B
   (setq C (substr A B1 1))
   (command "TEXT" SP HT 0 C)
   (setq B1 (+ B1 1))
   (setq HT1 HT)
   (if (= 108 (ascii C))
     (setq HT1 (/ HT 2)))
   (if (= 105 (ascii C))
     (setq HT1 (/ HT 3)))
   (if (= 73 (ascii C))
     (setq HT1 (/ HT 1.5)))
   (setq SP (polar SP 0 HT1))
 )
(redraw)
(princ)
)