yjpyjp 发表于 2025-1-11 13:03:09

找了个修改高程点字高的插件，但是不知道为什么这个点不会跟着一起变化





求大神改改

xyp1964 发表于 2025-1-11 14:39:23

(defun c:tt ()
(or th (setq th 1.5))
(setq th (Udist 7 "" "字高<输入或鼠标直接量取>" th nil))
(setq i -1)
(if (setq ss (ssget '((0 . "INSERT") (8 . "GCD1") (66 . 1))))
    (while (setq s1 (ssname ss (setq i (1+ i))))
      (setq ob (vlax-ename->vla-object s1)
            ob (vlax-variant-value (vla-GetAttributes ob))
            ob (car (vlax-safearray->list ob))
      )
      (vla-put-height ob th)
      (vla-update ob)
    )
)
(princ)
)

yjpyjp 发表于 2025-1-11 14:52:05

xyp1964 发表于 2025-1-11 14:39


Udist   这个函数是啥啦，大神

xyp1964 发表于 2025-1-11 15:56:48

(defun udist (bit kwd msg def bpt / inp)
"UDIST 距离输入格式化"
;; 应用：(setq dd(Udist 7 "" "距离<输入或鼠标直接量取>" dd nil))
(if def
    (setq msg(strcat"\n"msg"<"(rtos def)">: ")
          bit(* 2(fix(/ bit 2)))
    )
    (setq msg(strcat"\n"msg": "))
)
(initget bit kwd)
(setq inp(if bpt(getdist msg bpt)(getdist msg)))
(if inp inp def)
)

llsheng_73 发表于 2025-1-11 16:45:38

如果想要点位符号和高程注记同步大小，可以修改块参照的插入比例
页: [1]
查看完整版本: 找了个修改高程点字高的插件，但是不知道为什么这个点不会跟着一起变化