合并插件问题

tfanghui

来个大神指点一下，合并插件问题

附件两个
1个是查询视口比例，
1个是查询面积并显示文字，
  把这两个程序合并成一个程序，使插程序件功能变成,查询1:10 视口比例显示SC＝1:10, 查询1:20 视口比例显示SC＝1:20 ，

start4444

tfanghui 发表于 2022-8-27 08:59
大神出马一个顶俩，视口可以显示比例了，但是有点美中不足，
1.每个视口显示的文字不一样 ...

(defun c:tt5 (/ en i p1 p2 ss)
        (VL-LOAD-COM)
        (prompt "选择视口：")
        (setq  ss (ssget ":S" '((0 . "viewport"))))
        (setq i -1)
        (while (setq en (ssname ss (setq i (1+ i))))
                (setq p1 (car (enbox en)) p2 (cadr (enbox en)))
                (command "text" "j" "mc" "non" (mapcar'*(mapcar'+ p1 p2)'(0.5 0.5 0.5)) 2.5 0 (strcat "SC=1:" (rtos (/ (cdr(assoc 45 (entget en)))(cdr(assoc 41 (entget en)))) 2 0)))
        );while
        (princ)
)
(defun enbox (ename / ll ur)
  (vla-getboundingbox (vlax-ename->vla-object ename) 'll 'ur)
  (mapcar 'vlax-safearray->list (list ll ur))
)

start4444

(defun c:tt5 (/ en p1 p2)
        (VL-LOAD-COM)
        (prompt "选择视口：")
        (setq  en (ssname (ssget ":S" '((0 . "viewport"))) 0) p1 (car (enbox en)) p2 (cadr (enbox en)))
        (command "text" "j" "mc" "non" (mapcar'*(mapcar'+ p1 p2)'(0.5 0.5 0.5)) (* 0.2 (- (cadr p2) (cadr p1))) 0 (strcat "SC=1:" (rtos (/ (cdr(assoc 45 (entget en)))(cdr(assoc 41 (entget en)))) 2 0)))
        (princ)
)
(defun enbox (ename / ll ur)
  (vla-getboundingbox (vlax-ename->vla-object ename) 'll 'ur)
  (mapcar 'vlax-safearray->list (list ll ur))
)

tfanghui

start4444 发表于 2022-8-27 01:08
(defun c:tt5 (/ en p1 p2)
        (VL-LOAD-COM)
        (prompt "选择视口：")

大神出马一个顶俩，视口可以显示比例了，但是有点美中不足，
1.每个视口显示的文字不一样大，要是能固定文字为2.5就更好，
2.可以框选，但是只能显示最后一个视口有比例，

tfanghui

start4444 发表于 2022-8-27 18:36
(defun c:tt5 (/ en i p1 p2 ss)
        (VL-LOAD-COM)
        (prompt "选择视口：")

厉害了，我的哥，这是我要的效果。

tfanghui

start4444 发表于 2022-8-27 18:36
(defun c:tt5 (/ en i p1 p2 ss)
        (VL-LOAD-COM)
        (prompt "选择视口：")

老大，还有个问题请教一下，加了下面，想把文字放在一个不打印图层，但是跟其它的程序可能有冲突，  不知道要怎么处理了，                                                                                                                                            (command "layer" "m" "bili" "c" "3" "" "")
  (command ".layer" "p" "n" "bili" "")