帮助修改文字宽度Lisp？

ILoveMadoka · 发表于 2022-7-6 10:39:42

哎呀标题应为“帮助修改文字宽度Lisp”

我不知道这个代码是从哪里来的
（很老了……）
谁能帮我修改一下吗
还要处理多行文字和维度吗？

-编辑7.29.2010
**经过一些研究后，请点击多行文字不值得这么麻烦**
我只需要它处理各种维度。
关联、多重引线等。

copy

 
(DEFUN C:TW (/ P OPTION NSTYLE NWIDTH L N E)
(PROMPT "\nChanges text width: ")
(setvar "cmdecho" 0)
(graphscr)
(command "undo" "m")
(Prompt "\nSelect text to be changed: ")
(setq olderr *error*
            *error* cterr)
(setq p (ssget))
(SETQ OPTION "Width")
(cond
       ((eq option "Width")
            (setq nwidth (getreal "\nEnter new width for text: "))))
(if p
    (progn
    (setq l 0 n (sslength p))
    (while (< l n)
(if (= "TEXT"
(cdr (assoc 0 (setq e (entget (ssname p l))))))
(progn
     (cond
((eq option "Width")
(setq e (subst (cons 41 nwidth) (assoc 41 e) e))))
(entmod e)))
(setq l (1+ l)))))
(princ))

虽然我想知道如何修改此代码，
如果有其他更适合改变的常规
任何“文本相关”实体的文本宽度
也向这样的人开放。。。

谢谢

Tharwat · 发表于 2022-7-6 10:46:00

你好
以下内容与您的相同；

copy

(DEFUN C:TW (/ p nwidth l n e)
(PROMPT "\nChanges text width: ")
(setq p (ssget '((0 . "TEXT"))))
       (setq nwidth (getint "\nEnter new width for text: "))
 (if (/= p nil)
    (progn
    (setq l 0
   n (sslength p))
    (while (< l n)
 (setq e (entget (ssname p l)))
(entmod (setq e(subst (cons 41 nwidth) (assoc 41 e) e))
)
      (setq l (1+ l))))
)
 (princ)
)