标注文字偏移量怎么控制

Qwer1243

我想让标注文字偏移出尺寸界限一定距离，让文字清晰显示

现在我知道文字插入点位置，距离尺寸界限这个位置怎么确定，可以满足不同标注大小，文字大小都能合适

qazxswk

Qwer1243

qazxswk 发表于 2024-10-27 12:09

能实现，不过我不太喜欢这个样式，我想通过代码实现左边的样式

kozmosovia

直接改多行文字的基点

Qwer1243

自己写了一段代码实现了想要的效果，谁有更好的方法，可以分享学习一下

2. ;;;*****标注文字偏移*****
   
3. (defun c:d1 (/ ang d data ent f h lst pt11 pt13 pt14 scale str wide)
   
4.   (setvar "cmdecho" 0)
   
5.   (vl-load-com)
   
6.   ;;更新图元函数，这个是在论坛看到“G版”的函数修改的
   
7.   (defun f (dim postion layer)
   
8.     (setq el (entget dim)
   
9.       el (subst (cons 70 (logior 70 128)) (assoc 70 el) el) ;改变位置
   
10.       el (subst (cons 11 postion) (assoc 11 el) el) ;文字插入点
    
11.       el (subst (cons 8 layer) (assoc 8 el) el) ;图层
    
12.     )
    
13.     (entmod el)
    
14.   )
    
15.   ;;创建标注获取需要参数
    
16.   (command-s "DIMLINEAR" pause pause)
    
17.   (setq ent (entlast) data (entget ent))
    
18.   (setq str (rtos (cdr (Assoc 42 data)) 2 0))
    
19.   (setq h (Vlax-Get(Vlax-Ename->Vla-Object ent) 'TextHeight))
    
20.   (setq scale (getvar "DIMSCALE"))
    
21.   (setq h (* h scale))
    
22.   ;;获取标注文字的宽度
    
23.   (setq lst (textbox (list '(0 . "TEXT") (cons 1 str) (cons 40 h) (cons 41 0.7)))) ;字宽设置以为0.7
    
24.   (setq wide (abs (- (car (nth 0 lst)) (car (nth 1 lst)))))
    
25.   ;;取得需要改变位置的数值
    
26.   (setq pt11 (Cdr(Assoc 11 data)))
    
27.   (setq pt13 (Cdr(Assoc 13 data)))
    
28.   (setq pt14 (Cdr(Assoc 14 data)))
    
29.   (setq ang (Cdr(Assoc 50 data)))
    
30.   (if (= (fix ang) 1) (setq ang (* pi (/ 90 180.0))) (setq ang 0))  ;水平标注文字上移，数值标注文字右移
    
31.   (setq d (distance pt13 pt14))
    
32.   
    
33.   (f ent (polar pt11 ang (+ (/ wide 2) (/ d 2) (/ scale 2))) "Dim")
    
34.   (prin1)
    
35. )

;;;*****标注文字偏移*****<br /> (defun c:d1 (/ ang d data ent f h lst pt11 pt13 pt14 scale str wide)<br />   (setvar "cmdecho" 0)<br />   (vl-load-com)<br />   ;;更新图元函数，这个是在论坛看到“G版”的函数修改的<br />   (defun f (dim postion layer)<br />     (setq el (entget dim)<br />       el (subst (cons 70 (logior 70 128)) (assoc 70 el) el) ;改变位置<br />       el (subst (cons 11 postion) (assoc 11 el) el) ;文字插入点<br />       el (subst (cons 8 layer) (assoc 8 el) el) ;图层<br />     )<br />     (entmod el)<br />   )<br />   ;;创建标注获取需要参数<br />   (command-s "DIMLINEAR" pause pause)<br />   (setq ent (entlast) data (entget ent))<br />   (setq str (rtos (cdr (Assoc 42 data)) 2 0))<br />   (setq h (Vlax-Get(Vlax-Ename->Vla-Object ent) 'TextHeight))<br />   (setq scale (getvar "DIMSCALE"))<br />   (setq h (* h scale))<br />   ;;获取标注文字的宽度<br />   (setq lst (textbox (list '(0 . "TEXT") (cons 1 str) (cons 40 h) (cons 41 0.7)))) ;字宽设置以为0.7<br />   (setq wide (abs (- (car (nth 0 lst)) (car (nth 1 lst)))))<br />   ;;取得需要改变位置的数值<br />   (setq pt11 (Cdr(Assoc 11 data)))<br />   (setq pt13 (Cdr(Assoc 13 data)))<br />   (setq pt14 (Cdr(Assoc 14 data)))<br />   (setq ang (Cdr(Assoc 50 data)))<br />   (if (= (fix ang) 1) (setq ang (* pi (/ 90 180.0))) (setq ang 0))  ;水平标注文字上移，数值标注文字右移<br />   (setq d (distance pt13 pt14))<br />   <br />   (f ent (polar pt11 ang (+ (/ wide 2) (/ d 2) (/ scale 2))) "Dim")<br />   (prin1)<br /> )

Qwer1243

@429014673
你试验的图纸可能没有“Dim”图层，还有我这是高版本cad（2020），你可以把command-s改成command试试
附件是我测试的cad文件，你可以用来试试