[求助]如何能设置标注点到标注线的距离?(禁止liminnet xchrimp跟贴)

wuxuloveguo

斑竹的功能就是个对齐标注,不过可以指定距离,不错!支持一下!2004测试无问题!

狂刀无痕

很久以前的，略微改一下

3. ;; dmex ==延伸反转dim尺寸界线－v2.1－终结--------------lxx.2002.11
4. (defun c:dmex (/ ANG ANGP DISTEX E E10 E13 E14 ENT I NE13 NE14 PP= SS WKEY)
5. (princ "\n dmex ==延伸反转dim尺寸界线－v2.1－终结--------------lxx.2002.11")
6. (initget "W")
7. (setq distex (getdist "\n W-延伸线反转/尺寸界线延伸长度:") wkey nil)
8. (if (= "W" distex)(setq wkey T))
9. (princ "\n 选择要改变的dim实体:")
10. (setq ss (ssget '((0 . "DIMENSION"))) i 0 )
11. (repeat (sslength ss)
12.   (setq ent (ssname ss i)
13.         e (entget ent)
14.         e10 (cdr (assoc 10 e))
15.         e13 (cdr (assoc 13 e))
16.         e14 (cdr (assoc 14 e))
17. pp= (equal e10 e14 1e-4)
18.   )
19. (if (member '(100 . "AcDbRotatedDimension") e)
20.   (setq ang (cdr (assoc 50 e)))
21.   (setq ang (angle e13 e14))
22. )
23.   (setq angp (if pp= (+ (/ PI 2) ang)(angle e10 e14)))
24.   (if wkey   ;;; 延伸线反转
25.      (setq distex (distance e10 e14)
26.            angp (+ PI angp)
27.      )
28.   )
29.   (setq ne14 (polar e10 angp distex)
30.         ne13 (inters e13 (polar e13 angp 100) ne14 (polar ne14 ang 100) nil)
31.         i (1+ i)
32.   )
33.   (setq e (subst (cons 13 ne13) (assoc 13 e) e)
34.         e (subst (cons 14 ne14) (assoc 14 e) e)
35.    )
36.   (entmod e)
37.   (entupd ent)
38. )
39. (princ)
40. )  
41. (princ "\n dmex ==延伸反转dim尺寸界线－v2.1－终结--------------lxx.2002.11")

;; dmex ==延伸反转dim尺寸界线－v2.1－终结--------------lxx.2002.11 (defun c:dmex (/ ANG ANGP DISTEX E E10 E13 E14 ENT I NE13 NE14 PP= SS WKEY) (princ "\n dmex ==延伸反转dim尺寸界线－v2.1－终结--------------lxx.2002.11") (initget "W") (setq distex (getdist "\n W-延伸线反转/尺寸界线延伸长度:") wkey nil) (if (= "W" distex)(setq wkey T)) (princ "\n 选择要改变的dim实体:") (setq ss (ssget '((0 . "DIMENSION"))) i 0 ) (repeat (sslength ss)   (setq ent (ssname ss i)         e (entget ent)         e10 (cdr (assoc 10 e))         e13 (cdr (assoc 13 e))         e14 (cdr (assoc 14 e)) pp= (equal e10 e14 1e-4)   ) (if (member '(100 . "AcDbRotatedDimension") e)   (setq ang (cdr (assoc 50 e)))   (setq ang (angle e13 e14)) )   (setq angp (if pp= (+ (/ PI 2) ang)(angle e10 e14)))   (if wkey   ;;; 延伸线反转      (setq distex (distance e10 e14)            angp (+ PI angp)      )   )   (setq ne14 (polar e10 angp distex)         ne13 (inters e13 (polar e13 angp 100) ne14 (polar ne14 ang 100) nil)         i (1+ i)   )   (setq e (subst (cons 13 ne13) (assoc 13 e) e)         e (subst (cons 14 ne14) (assoc 14 e) e)    )   (entmod e)   (entupd ent) ) (princ) )   (princ "\n dmex ==延伸反转dim尺寸界线－v2.1－终结--------------lxx.2002.11")

fengsea

有那位大大帮忙在改改这个限定距离的lsp，最好是标注点不动，标注尺寸线改动，要是能把距离改为文字的大小的倍数再乘以标注的比例为长度更完美了！！！