动态更改文本，具有

Tharwat · 发表于 2022-7-6 00:14:19

不客气，卢卡斯，谢谢你的好话和赞扬

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

正确，我在写之前就想过了，但在这种情况下，你使用的函数是一个麻烦的问题，因为比例因子会迫使用户过于接近第一个选择的维度，从而避免该函数的大规模性能，所以我这样做

lucas3 · 发表于 2022-7-6 00:22:07

谢谢你帮我？不我会感到羞耻的，我在帖子#9还有一个问题

Tharwat · 发表于 2022-7-6 00:24:01

可能是。。。

copy


(defun c:Test (/ s p e gr)
 ;;    Author : Tharwat 20. jan. 2014    ;;
 (if (setq s (ssget "_+.:S:E:L" '((0 . "TEXT,MTEXT"))))
   (progn
     (setq p (cdr (assoc 10 (entget (setq e (ssname s 0))))))
     (while (eq (car (setq gr (grread t 15 0))) 5)
       (redraw)
       (grdraw p (cadr gr) 1 -1)
       (vla-put-height
         (vlax-ename->vla-object e)
         (atoi (rtos (distance p (cadr gr))))
        )
     )
     (redraw)
   )
 )
 (princ)
)
(vl-load-com)

pBe · 发表于 2022-7-6 00:27:45

tharwat不错，不过建议很快。

copy

 . if you are to use your approach (textheight * distance) for multiple selection and the text/mtext entities are of varying height to start with. you will end up with same text height for all. Suggest you use ScaleEntity method and use a multiplier to maintain the ratio. but thats just me.<p> </p><p>I have not looked at the other code [Dims] , but i'm pretty sure the same approach as above or something to that effect would be a better option.</p><p> </p><p>Just my 2 cents.</p><p> </p><p>[b][color=blue]EDIT: Looks like MSasu beat me to it with regards to DIM ratio[/color][/b]</p>