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

yjpyjp

求大神改改

xyp1964

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

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

yjpyjp

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

Udist   这个函数是啥啦，大神

xyp1964

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

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

llsheng_73

如果想要点位符号和高程注记同步大小，可以修改块参照的插入比例