社区 › Auto Lisp › 帮助编辑lisp编号非自动

minhphuong_humg 发表于 2022-7-5 18:37:38

帮助编辑lisp编号非自动

大家好。
我有一个lisp自动编号收集。
然而，虽然小数字的数量适合圆圈（带擦除），但当数字较大时，它不会自动适合该圆圈。
请帮我把圆圈自动编号（用抹掉）。
非常感谢你！
请查看文件附件：
 

 

DSTT。lsp
2案例。图纸

satishrajdev 发表于 2022-7-5 18:50:26

尝试根据文本字符串长度设置文本高度或宽度因子。

Tharwat 发表于 2022-7-5 18:54:16

试试这个我刚刚编写并添加到工具箱中的程序
 

(defun c:test (/ *error* _bx cm ss s i wp tx e d mid)
;;------------------------------------;;
;; Author : Tharwat 15.09.2015        ;;
;; Resize texts inside wipeouts        ;;
;;------------------------------------;;
(defun *error* (msg)
   (if cm
   (setvar 'cmdecho cm)
   )
   (if (and msg (wcmatch (strcase msg) "*BREAK*,*CANCEL*,*EXIT*"))
   (princ (strcat "\n ** Error : " msg " **"))
   )
   (princ)
)
(defun _bx (o / l r a b c d)
   (vla-getboundingbox (vlax-ename->vla-object o) 'l 'r)
   (setq a (vlax-safearray->list l)
         b (vlax-safearray->list r)
         c (list (car b) (cadr a))
         d (distance a c)
   )
   (list a b c d)
)
(if (setq ss (ssget '((0 . "WIPEOUT"))))
   (repeat (setq i (sslength ss))
   (setq wp (_bx (ssname ss (setq i (1- i)))))
   (if (setq s (ssget "_C"
                        (car wp)
                        (cadr wp)
                        '((0 . "TEXT"))
               )
         )
       (progn
         (setq e(ssname s 0)
               tx (_bx e)
               d(last wp)
               cm (getvar 'cmdecho)
         )
         (setvar 'cmdecho 0)
         (command
         "_.scale"
         e
         ""
         (setq mid (mapcar '(lambda (q p) (/ (+ q p) 2.))
                           (car wp)
                           (cadr wp)
                     )
         )
         "_r"
         "_none"
         (car tx)
         "_none"
         (caddr tx)
         (- d (/ d 5.))
         )
         (setq tx (_bx e))
         (command
         "_.move"
         e
         ""
         "_none"
         (mapcar '(lambda (q p) (/ (+ q p) 2.)) (car tx) (cadr tx))
         "_none"
         mid
         )
       )
   )
   )
)
(*error nil)
(princ)
)(vl-load-com)

77077 发表于 2022-7-5 19:02:25

 
良好的常规。你帮了大忙。

Tharwat 发表于 2022-7-5 19:12:05

 
哈哈。。谢谢
 
事实上，我以前需要这个程序一两次，但当时我懒得写一个，所以今天我强迫自己写一个完整的，我想我做到了。
 
享受

BIGAL 发表于 2022-7-5 19:22:25

另一种方法是查看字符的数量，并在创建时增加圆的直径。

minhphuong_humg 发表于 2022-7-5 19:24:29

 
非常感谢塔瓦！祝你好运。

minhphuong_humg 发表于 2022-7-5 19:33:47

 
非常感谢比格尔！

Tharwat 发表于 2022-7-5 19:38:29

 
不客气。

查看完整版本: 帮助编辑lisp编号非自动