社区 › Auto Lisp › 帮助修改文字宽度Lisp？

ILoveMadoka 发表于 2022-7-6 11:13:26

我一点也不生气。
如果是那样的话，我很抱歉。
 
我真的很惊讶我能找到这个代码
当我搜索时。
 
我只知道很多时候人们的武库里都有代码
这就是我所希望的。而你的答案是
我不得不说这不是我想要的
或者其他人会认为这是我所需要的，而没有回应。
 
我现在的问题是有这么长的线程
我仍然需要帮助！
 
 
我认识这里的Lisp程序饮食法，并给予他们应有的荣誉。。。

alanjt 发表于 2022-7-6 11:17:15

你真谦虚。

alanjt 发表于 2022-7-6 11:19:59

任何值得拥有的东西都值得为之努力。 
不久前，我写了一篇文章，将设置多行文字和多重引线的宽度；这就是你想要的吗？

Tharwat 发表于 2022-7-6 11:22:04

 
正如你所能想象的那样。。
 
你必须按照顺序1+1=2的Lisp程序来生活

ILoveMadoka 发表于 2022-7-6 11:25:53

 
 
不确定。
多重引线的处理是否与常规关联标注相同？
 
我有一套19幅画，每幅都是大杂烩
尺寸和文字的可能类型。关联尺寸，
分解尺寸、引线、多重引线、文字、多行文字。他们所有人
各种宽度（和高度）。这简直是一场噩梦。
 
我的工作？把它做好。
 
我不是想开始什么。
我其实希望这会是一个简单的一个。。。

ILoveMadoka 发表于 2022-7-6 11:28:58

请
请
请
请
 
请帮忙！！！

ILoveMadoka 发表于 2022-7-6 11:30:23

我正在研究这个博物馆，我可以自信地说
这远远超出了我有限的lisp能力的范围。
它似乎涉及扩展实体数据。
 
再一次，我不适合。。
 
我在这里拼命乞讨。。

alanjt 发表于 2022-7-6 11:34:09

(defun c:WD (/ ss wd)
;; Change width of selected MText and MultiLeader objects
;; Alan J. Thompson, 11.05.09
(if (and (setq ss (ssget "_:L" '((0 . "MTEXT,MULTILEADER"))))
          (setq wd (initget 4)
                wd (cond ((getdist "\nWidth <0.0>: "))
                         (0.)
                   )
          )
   )
   (progn
   (vlax-for x (setq ss (vla-get-activeselectionset
                            (cond (*AcadDoc*)
                                  ((setq *AcadDoc* (vla-get-activedocument
                                                   (vlax-get-acad-object)
                                                   )
                                 )
                                  )
                            )
                        )
               )
       (vl-catch-all-apply
         (function vlax-put-property)
         (list x
               (cond ((eq (vla-get-objectname x) "AcDbMText") 'Width)
                     ((eq (vla-get-objectname x) "AcDbMLeader") 'TextWidth)
               )
               wd
         )
       )
   )
   (vla-delete ss)
   )
)
(princ)
)

ILoveMadoka 发表于 2022-7-6 11:36:53

非常感谢您，先生。

alanjt 发表于 2022-7-6 11:41:55

希望有帮助。

查看完整版本: 帮助修改文字宽度Lisp？