如何实现直径标注前面增加变量数字

世人皆醉

2. (defun c:yfl1(/ d1 d2 d3 d4 d5 d6 d7 d8  e1 e2 e3 e4 pt0 pt1 pt2 pt3 p1 p2 );圆法兰不规则下料
   
3.    (command "._undo" "_begin")
   
4.   (setvar "cmdecho" 0) ;关闭普通命令提示信息
   
5.   (setvar "osmode" 0)  ;关闭对象捕捉状态
   
6.   
   
7.   (setq d1(getreal "\n 法兰内径<151>:"));风管外径和法兰内径
   
8.   (if (not d1) (setq d1 151))
   
9.   (setq d2(getreal "\n 中心距<191>:"))
   
10.   (if (not d2) (setq d2 191))
    
11.   (setq d6(getreal "\n 法兰宽度<40>:"))
    
12.   (if (not d6) (setq d6 40))
    
13.   (setq d3 (+ d1 (* 2 d6)))
    
14.   (setq d4(getreal "\n 开孔直径<10>:"))
    
15.   (if (not d4) (setq d4 10))
    
16. (setq d5(getreal "\n 开孔数量<8>:"));修改变量参考于此
    
17.   (if (not d5) (setq d5 8.0))
    
18.   (SETQ D8(/ (/ 360 D5) 2));分线角度
    
19.   (setq d7(/ d3 2))
    
20.   (SETQ pt0(getpoint "\n 插入点："))
    
21. ;上面为所需变量
    
22.   (command "circle" pt0 "d" d1);内圆
    
23.   (setq e4(entlast))
    
24.     (setq p2 (polar pt0 (/ pi 4) (/ d1 2)));直径标注
    
25.     (command "_dimdiameter" p2 "@-150,30")
    
26.   (command "circle" pt0 "d" d2);中心圆
    
27.   (setq e1(entlast))
    
28.     (command "_dimdiameter" p2 "@50,70")
    
29.   (command "circle" pt0 "d" d3);外圆
    
30.   (command "_dimdiameter" p2 "@200,100")
    
31.   (setq p1(list (car pt0) (+ (cadr pt0) d7)));外圆半径点   
    
32.   (setq pt1(list (car pt0) (+ (cadr pt0) (/ d2 2))))
    
33.   (setq pt2(list (car pt0) (+ (cadr pt0) (/ d1 2))))
    
34.   (command "circle" pt1 "d" d4)
    
35.   (setq e2(entlast))
    
36.   (command "_.ARRAY" e2 "" "P" pt0 d5  "" "")
    
37. (command "_dimdiameter" p2 "@-50,-50")；修改直径标注参考于此
    
38.   (command "erase" e1 "")
    
39.   (command "line" pt2 p1 "")
    
40.   (setq e3(entlast))
    
41.   (command "rotate" e3 "" pt0 d8)
    
42.   (if
    
43.     (> d1 251)
    
44.   (progn
    
45.   (if
    
46.     (<= d1 501)
    
47.   (progn
    
48.   (command "rotate" e3 "" pt0 "c" 120)
    
49.   (command "rotate" e3 "" pt0 "c" 240)
    
50.   )
    
51.   (progn
    
52.   (command "rotate" e3 "" pt0 "c" 90)
    
53.   (command "rotate" e3 "" pt0 "c" 180)
    
54.   (command "rotate" e3 "" pt0 "c" 270)
    
55.   (command "rotate" e3 "" pt0 "c" 360)))
    
56.   )
    
57.     (command "erase" e3 "" ))
    
58.   
    
59.     (setvar "osmode" 16383)  ;打开对象捕捉状态
    
60.   (princ) ;静默退出
    
61.   (command "._undo" "_end")
    
62.   )

(defun c:yfl1(/ d1 d2 d3 d4 d5 d6 d7 d8  e1 e2 e3 e4 pt0 pt1 pt2 pt3 p1 p2 );圆法兰不规则下料<br />    (command "._undo" "_begin")<br />   (setvar "cmdecho" 0) ;关闭普通命令提示信息<br />   (setvar "osmode" 0)  ;关闭对象捕捉状态<br />   <br />   (setq d1(getreal "\n 法兰内径<151>:"));风管外径和法兰内径<br />   (if (not d1) (setq d1 151))<br />   (setq d2(getreal "\n 中心距<191>:"))<br />   (if (not d2) (setq d2 191))<br />   (setq d6(getreal "\n 法兰宽度<40>:"))<br />   (if (not d6) (setq d6 40))<br />   (setq d3 (+ d1 (* 2 d6)))<br />   (setq d4(getreal "\n 开孔直径<10>:"))<br />   (if (not d4) (setq d4 10))<br /> (setq d5(getreal "\n 开孔数量<8>:"));修改变量参考于此<br />   (if (not d5) (setq d5 8.0))<br />   (SETQ D8(/ (/ 360 D5) 2));分线角度<br />   (setq d7(/ d3 2))<br />   (SETQ pt0(getpoint "\n 插入点："))<br /> ;上面为所需变量<br />   (command "circle" pt0 "d" d1);内圆<br />   (setq e4(entlast))<br />     (setq p2 (polar pt0 (/ pi 4) (/ d1 2)));直径标注<br />     (command "_dimdiameter" p2 "@-150,30")<br />   (command "circle" pt0 "d" d2);中心圆<br />   (setq e1(entlast))<br />     (command "_dimdiameter" p2 "@50,70")<br />   (command "circle" pt0 "d" d3);外圆<br />   (command "_dimdiameter" p2 "@200,100")<br />   (setq p1(list (car pt0) (+ (cadr pt0) d7)));外圆半径点   <br />   (setq pt1(list (car pt0) (+ (cadr pt0) (/ d2 2))))<br />   (setq pt2(list (car pt0) (+ (cadr pt0) (/ d1 2))))<br />   (command "circle" pt1 "d" d4)<br />   (setq e2(entlast))<br />   (command "_.ARRAY" e2 "" "P" pt0 d5  "" "")<br /> (command "_dimdiameter" p2 "@-50,-50")；修改直径标注参考于此<br />   (command "erase" e1 "")<br />   (command "line" pt2 p1 "")<br />   (setq e3(entlast))<br />   (command "rotate" e3 "" pt0 d8)<br />   (if<br />     (> d1 251)<br />   (progn<br />   (if<br />     (<= d1 501)<br />   (progn<br />   (command "rotate" e3 "" pt0 "c" 120)<br />   (command "rotate" e3 "" pt0 "c" 240)<br />   )<br />   (progn<br />   (command "rotate" e3 "" pt0 "c" 90)<br />   (command "rotate" e3 "" pt0 "c" 180)<br />   (command "rotate" e3 "" pt0 "c" 270)<br />   (command "rotate" e3 "" pt0 "c" 360)))<br />   )<br />     (command "erase" e3 "" ))<br />   <br />     (setvar "osmode" 16383)  ;打开对象捕捉状态<br />   (princ) ;静默退出<br />   (command "._undo" "_end")<br />   )

上面是代码，目前能实现下面图的效果


我想让这个直径10mm的孔显示跟随d5这个变量，想要成下面图的效果

请问该如何改呢

cq4920

世人皆醉 发表于 2022-12-1 19:55
按照这种方式改完显示参数出错啊，还是不行啊，是那个环节有问题吗

n 为整数 需要（itoa n）转成字符串  5楼又给出一套代码，运行起来应该会更快一些，并且标注随着操作进行，直观方便，
部分参数你可以自行调整一下，比如默认的尺寸数量！

顺便提示一下，绘图尽量用 enrmake 制作，尺寸数量等 可以用字典来记忆！
你这个属于参数画图，也可以考虑用DCL面板来画图

cq4920

(command "circle" pt1 "d" d4)
(setq ne (strcat d5 "*" "<>"))
(command "_dimdiameter" p2 "@-50,-50");在d5标注之后，对标注进行修改
(setq dlitxt (entget (entlast)))
(setq dlitxt  (subst (cons 1 ne) (assoc 1 dlitxt) dlitxt))
(entmod dlitxt);

世人皆醉

cq4920 发表于 2022-12-1 18:42
(command "circle" pt1 "d" d4)
(setq ne (strcat d5 "*" ""))
(command "_dimdiameter" p2 "@-50,-50"); ...

(defun c:yfl1(/ d1 d2 d3 d4 d5 d6 d7 d8  e1 e2 e3 e4 pt0 pt1 pt2 pt3 p1 p2 );圆法兰不规则下料
   (command "._undo" "_begin")
  (setvar "cmdecho" 0) ;关闭普通命令提示信息
  (setvar "osmode" 0)  ;关闭对象捕捉状态
  
  (setq d1(getreal "\n 法兰内径<151>:"));风管外径和法兰内径
  (if (not d1) (setq d1 151))
  (setq d2(getreal "\n 中心距<191>:"))
  (if (not d2) (setq d2 191))
  (setq d6(getreal "\n 法兰宽度<40>:"))
  (if (not d6) (setq d6 40))
  (setq d3 (+ d1 (* 2 d6)))
  (setq d4(getreal "\n 开孔直径<10>:"))
  (if (not d4) (setq d4 10))
(setq d5(getreal "\n 开孔数量<8>:"));修改变量参考于此
  (if (not d5) (setq d5 8.0))
  (SETQ D8(/ (/ 360 D5) 2));分线角度
  (setq d7(/ d3 2))
  (SETQ pt0(getpoint "\n 插入点："))
;上面为所需变量
  (command "circle" pt0 "d" d1);内圆
  (setq e4(entlast))
    (setq p2 (polar pt0 (/ pi 4) (/ d1 2)));直径标注
    (command "_dimdiameter" p2 "@-150,30")
  (command "circle" pt0 "d" d2);中心圆
  (setq e1(entlast))
    (command "_dimdiameter" p2 "@50,70")
  (command "circle" pt0 "d" d3);外圆
  (command "_dimdiameter" p2 "@200,100")
  (setq p1(list (car pt0) (+ (cadr pt0) d7)));外圆半径点   
  (setq pt1(list (car pt0) (+ (cadr pt0) (/ d2 2))))
  (setq pt2(list (car pt0) (+ (cadr pt0) (/ d1 2))))
  (command "circle" pt1 "d" d4)
(setq e2(entlast))
(setq ne (strcat d5 "*" "<>"))
(command "_dimdiameter" p2 "@-50,-50");在d5标注之后，对标注进行修改
(setq dlitxt (entget (entlast)))
(setq dlitxt  (subst (cons 1 ne) (assoc 1 dlitxt) dlitxt))
(entmod dlitxt);

  
  
  (command "_.ARRAY" e2 "" "P" pt0 d5  "" "")
(command "_dimdiameter" p2 "@-50,-50")；修改直径标注参考于此
  (command "erase" e1 "")
  (command "line" pt2 p1 "")
  (setq e3(entlast))
  (command "rotate" e3 "" pt0 d8)
  (if
    (> d1 251)
  (progn
  (if
    (<= d1 501)
  (progn
  (command "rotate" e3 "" pt0 "c" 120)
  (command "rotate" e3 "" pt0 "c" 240)
  )
  (progn
  (command "rotate" e3 "" pt0 "c" 90)
  (command "rotate" e3 "" pt0 "c" 180)
  (command "rotate" e3 "" pt0 "c" 270)
  (command "rotate" e3 "" pt0 "c" 360)))
  )
    (command "erase" e3 "" ))
  
    (setvar "osmode" 16383)  ;打开对象捕捉状态
  (princ) ;静默退出
  (command "._undo" "_end")
  )

世人皆醉

cq4920 发表于 2022-12-1 18:42
(command "circle" pt1 "d" d4)
(setq ne (strcat d5 "*" ""))
(command "_dimdiameter" p2 "@-50,-50"); ...

按照这种方式改完显示参数出错啊，还是不行啊，是那个环节有问题吗

cq4920

2. (defun c:ttt(/ pt0 pt1 pt2 pt3 p1 p2 );圆法兰不规则下料
   
3. &#160;&#160;(setvar "cmdecho" 0) ;关闭普通命令提示信息
   
4. &#160;&#160;(setvar "osmode" 0)&#160;&#160;;关闭对象捕捉状态
   
5. (setq pt0 (getpoint))
   
6. (setq pt1 (getpoint PT0 " >>>指定外径:"))
   
7. (setq R1 (distance pt0 pt1))       
   
8. (entmake (list '(0 . "CIRCLE") (cons 10 pt0) (cons 40 R1)));外圆
   
9. (command "_.dimdiameter" (list (entlast) PT1) "")
   
10. (setq WH (getdist pt1 " >>>指定外环宽度:"))
    
11. (setq R2 (- R1 WH))       
    
12. (setq pt1B (polar PT1 (angle pt0 pt1) R1 ))       
    
13. (entmake (list '(0 . "CIRCLE") (cons 10 pt0) (cons 40 R2)));内圆
    
14. (command "_.dimdiameter" (list (entlast) PT1) "")
    
15. (setq e2 (entlast))
    
16. (setq pt2 (polar PT0 (* pi 0.5) (- R1 (/ WH 2))))
    
17. (setq R3 (getdist " >>>指定打孔半径:"))
    
18. (setq n (getint "指定打孔数量"))
    
19. (setq pt2 (polar PT0 (* pi 0.5)  (- R1 (/ WH 2))))       
    
20. (repeat n
    
21. (setq pt2 (polar PT0 (+ (angle pt0 pt2) (/ (* pi 2) n)) (- R1 (/ WH 2))))
    
22. (entmake (list '(0 . "CIRCLE") (cons 10 pt2) (cons 40 R3)));打孔
    
23. )
    
24. (command "_.dimdiameter" (list (entlast) PT1) "")
    
25. (setq ne (strcat (itoa n) "*" "<>"))
    
26. (setq dlitxt (entget (entlast)))
    
27. (setq dlitxt  (subst (cons 1 ne) (assoc 1 dlitxt) dlitxt))
    
28. (entmod dlitxt)       
    
29. 
    
30. )
    

(defun c:ttt(/ pt0 pt1 pt2 pt3 p1 p2 );圆法兰不规则下料<br /> &#160;&#160;(setvar "cmdecho" 0) ;关闭普通命令提示信息<br /> &#160;&#160;(setvar "osmode" 0)&#160;&#160;;关闭对象捕捉状态<br /> (setq pt0 (getpoint))<br /> (setq pt1 (getpoint PT0 " >>>指定外径:"))<br /> (setq R1 (distance pt0 pt1))        <br /> (entmake (list '(0 . "CIRCLE") (cons 10 pt0) (cons 40 R1)));外圆<br /> (command "_.dimdiameter" (list (entlast) PT1) "")<br /> (setq WH (getdist pt1 " >>>指定外环宽度:"))<br /> (setq R2 (- R1 WH))        <br /> (setq pt1B (polar PT1 (angle pt0 pt1) R1 ))        <br /> (entmake (list '(0 . "CIRCLE") (cons 10 pt0) (cons 40 R2)));内圆<br /> (command "_.dimdiameter" (list (entlast) PT1) "")<br /> (setq e2 (entlast))<br /> (setq pt2 (polar PT0 (* pi 0.5) (- R1 (/ WH 2))))<br /> (setq R3 (getdist " >>>指定打孔半径:"))<br /> (setq n (getint "指定打孔数量"))<br /> (setq pt2 (polar PT0 (* pi 0.5)  (- R1 (/ WH 2))))        <br /> (repeat n<br /> (setq pt2 (polar PT0 (+ (angle pt0 pt2) (/ (* pi 2) n)) (- R1 (/ WH 2))))<br /> (entmake (list '(0 . "CIRCLE") (cons 10 pt2) (cons 40 R3)));打孔<br /> )<br /> (command "_.dimdiameter" (list (entlast) PT1) "")<br /> (setq ne (strcat (itoa n) "*" "<>"))<br /> (setq dlitxt (entget (entlast)))<br /> (setq dlitxt  (subst (cons 1 ne) (assoc 1 dlitxt) dlitxt))<br /> (entmod dlitxt)        <br /> <br /> )<br />

世人皆醉

cq4920 发表于 2022-12-2 09:36
n 为整数 需要（itoa n）转成字符串  5楼又给出一套代码，运行起来应该会更快一些，并且标注随着操作进行 ...

好的，谢谢大佬，我后面会改成DCL绘图这只是测试一下，ENTMAKE理解起来可能没command调用命令简单，我后面也去学习试试