LSP怎么改Leader（引线）里的箭头样式和大小

菜卷鱼

你自己先试一下再说，我一直这样画图的，我设置的是QQ画小点引线，QA画箭头引线。
我在一个图档里所有的标注样式只有一个，只是设置的dimscale 标注比例不同。

1. 你自己先试一下再说，我一直这样画图的，我设置的是QQ画小点引线，QA画箭头引线。
   
2. 我在一个图档里所有的标注样式只有一个，只是设置的dimscale 标注比例不同。
   
3. (defun c:Qq ( / mirrtxt pt1 pt2 pt3 pt0)
   
4. (setq pt1 (getpoint  "\n指定个引线第一点:"))
   
5. (setq pt2 (getpoint pt1 "\n指定个引线第二点:"))
   
6. ;;(undobe)
   
7. (SETVAR "CMDECHO" 0)
   
8. (setvar 'dimldrblk "小点")
   
9. (setq *error* q_err )
   
10. (setq qscale (getvar "dimscale"))
    
11. (setvar "attreq" 0)
    
12. (setq pt3(mapcar '/ (mapcar '+ pt1 pt2) '(2 2 2)))
    
13. (setq pt0 ( polar pt3 (angtof "90") (* 3.5 (getvar 'dimscale))) )
    
14. (command "_.leader" "non" pt1 "non" pt2 "" "" "n")
    
15. (command "chprop" (entlast) ""  "LA" "02标注" "")
    
16. (if (= (fix(cadr pt1))(fix(cadr pt2)))
    
17. (entmake (list '(0 . "TEXT") (cons 1 "默认文字") (cons 7 (getvar 'textstyle)) '(8 . "06文字层") (cons 10 pt1)(cons 11 pt0)
    
18.                (cons 40 (* (getvar 'dimscale) 5))(cons 41 0.8) (cons 71 0)(cons 72 4)))
    
19. (progn(command "_.line" pt2 (getpoint pt2 "\n指定个引线第三点:") "")(command "chprop" (entlast) ""  "LA" "02标注" "") )
    
20. )
    
21. (SETVAR "CMDECHO" 1)
    
22. ;;(undoe)
    
23. (prin1)
    
24. )
    
25. 
    
26. (defun c:Qa ( / mirrtxt pt1 pt2 pt3 pt0)
    
27. (setq pt1 (getpoint  "\n指定个引线第一点:"))
    
28. (setq pt2 (getpoint pt1 "\n指定个引线第二点:"))
    
29. ;;(undobe)
    
30. (SETVAR "CMDECHO" 0)
    
31. (setvar 'dimldrblk ".")
    
32. (setq *error* q_err )
    
33. (setq qscale (getvar "dimscale"))
    
34. (setvar "attreq" 0)
    
35. (setq pt3(mapcar '/ (mapcar '+ pt1 pt2) '(2 2 2)))
    
36. (setq pt0 ( polar pt3 (angtof "90") (* 3.5 (getvar 'dimscale))) )
    
37. (command "_.leader" "non" pt1 "non" pt2 "" "" "n")
    
38. (command "chprop" (entlast) ""  "LA" "02标注" "")
    
39. (if (= (fix(cadr pt1))(fix(cadr pt2)))
    
40. (entmake (list '(0 . "TEXT") (cons 1 "默认文字") (cons 7 (getvar 'textstyle)) '(8 . "06文字层") (cons 10 pt1)(cons 11 pt0)
    
41.                (cons 40 (* (getvar 'dimscale) 5))(cons 41 0.8) (cons 71 0)(cons 72 4)))
    
42. (progn(command "_.line" pt2 (getpoint pt2 "\n指定个引线第三点:") "")(command "chprop" (entlast) ""  "LA" "02标注" "") )
    
43. )
    
44. (SETVAR "CMDECHO" 1)
    
45. ;;(undoe)
    
46. (prin1)
    
47. )
    
48. 
    

你自己先试一下再说，我一直这样画图的，我设置的是QQ画小点引线，QA画箭头引线。<br /> 我在一个图档里所有的标注样式只有一个，只是设置的dimscale 标注比例不同。<br /> (defun c:Qq ( / mirrtxt pt1 pt2 pt3 pt0)<br /> (setq pt1 (getpoint  "\n指定个引线第一点:"))<br /> (setq pt2 (getpoint pt1 "\n指定个引线第二点:"))<br /> ;;(undobe)<br /> (SETVAR "CMDECHO" 0)<br /> (setvar 'dimldrblk "小点")<br /> (setq *error* q_err )<br /> (setq qscale (getvar "dimscale"))<br /> (setvar "attreq" 0)<br /> (setq pt3(mapcar '/ (mapcar '+ pt1 pt2) '(2 2 2)))<br /> (setq pt0 ( polar pt3 (angtof "90") (* 3.5 (getvar 'dimscale))) )<br /> (command "_.leader" "non" pt1 "non" pt2 "" "" "n")<br /> (command "chprop" (entlast) ""  "LA" "02标注" "")<br /> (if (= (fix(cadr pt1))(fix(cadr pt2)))<br /> (entmake (list '(0 . "TEXT") (cons 1 "默认文字") (cons 7 (getvar 'textstyle)) '(8 . "06文字层") (cons 10 pt1)(cons 11 pt0) <br />                (cons 40 (* (getvar 'dimscale) 5))(cons 41 0.8) (cons 71 0)(cons 72 4)))<br /> (progn(command "_.line" pt2 (getpoint pt2 "\n指定个引线第三点:") "")(command "chprop" (entlast) ""  "LA" "02标注" "") )<br /> )<br /> (SETVAR "CMDECHO" 1)<br /> ;;(undoe)<br /> (prin1)<br /> )<br /> <br /> (defun c:Qa ( / mirrtxt pt1 pt2 pt3 pt0)<br /> (setq pt1 (getpoint  "\n指定个引线第一点:"))<br /> (setq pt2 (getpoint pt1 "\n指定个引线第二点:"))<br /> ;;(undobe)<br /> (SETVAR "CMDECHO" 0)<br /> (setvar 'dimldrblk ".")<br /> (setq *error* q_err )<br /> (setq qscale (getvar "dimscale"))<br /> (setvar "attreq" 0)<br /> (setq pt3(mapcar '/ (mapcar '+ pt1 pt2) '(2 2 2)))<br /> (setq pt0 ( polar pt3 (angtof "90") (* 3.5 (getvar 'dimscale))) )<br /> (command "_.leader" "non" pt1 "non" pt2 "" "" "n")<br /> (command "chprop" (entlast) ""  "LA" "02标注" "")<br /> (if (= (fix(cadr pt1))(fix(cadr pt2)))<br /> (entmake (list '(0 . "TEXT") (cons 1 "默认文字") (cons 7 (getvar 'textstyle)) '(8 . "06文字层") (cons 10 pt1)(cons 11 pt0) <br />                (cons 40 (* (getvar 'dimscale) 5))(cons 41 0.8) (cons 71 0)(cons 72 4)))<br /> (progn(command "_.line" pt2 (getpoint pt2 "\n指定个引线第三点:") "")(command "chprop" (entlast) ""  "LA" "02标注" "") )<br /> )<br /> (SETVAR "CMDECHO" 1)<br /> ;;(undoe)<br /> (prin1)<br /> )<br /> <br />

菜卷鱼

你自己尝试过没有？同一个标注样式名，可以标注出不同的样式！

1. (defun c:qq ( / mirrtxt pt1 pt2 pt3 pt0)
   
2. (setq pt1 (getpoint  "\n指定个引线第一点:"))
   
3. (setq pt2 (getpoint pt1 "\n指定个引线第二点:"))
   
4. ;;(undobe)
   
5. (SETVAR "CMDECHO" 0)
   
6. (setvar 'dimldrblk "小点")
   
7. (setq *error* q_err )
   
8. (setq qscale (getvar "dimscale"))
   
9. (setvar "attreq" 0)
   
10. (setq pt3(mapcar '/ (mapcar '+ pt1 pt2) '(2 2 2)))
    
11. (setq pt0 ( polar pt3 (angtof "90") (* 3.5 (getvar 'dimscale))) )
    
12. (command "_.leader" "non" pt1 "non" pt2 "" "" "n")
    
13. (command "chprop" (entlast) ""  "LA" "02标注" "")
    
14. (if (= (fix(cadr pt1))(fix(cadr pt2)))
    
15. (entmake (list '(0 . "TEXT") (cons 1 "默认文字") (cons 7 (getvar 'textstyle)) '(8 . "06文字层") (cons 10 pt1)(cons 11 pt0)
    
16.                (cons 40 (* (getvar 'dimscale) 5))(cons 41 0.8) (cons 71 0)(cons 72 4)))
    
17. (progn(command "_.line" pt2 (getpoint pt2 "\n指定个引线第三点:") "")(command "chprop" (entlast) ""  "LA" "02标注" "") )
    
18. )
    
19. 
    
20. (SETVAR "CMDECHO" 1)
    
21. ;;(undoe)
    
22. (prin1)
    
23. )
    
24. 
    
25. (defun c:qa ( / mirrtxt pt1 pt2 pt3 pt0)
    
26. (setq pt1 (getpoint  "\n指定个引线第一点:"))
    
27. (setq pt2 (getpoint pt1 "\n指定个引线第二点:"))
    
28. ;;(undobe)
    
29. (SETVAR "CMDECHO" 0)
    
30. (setvar 'dimldrblk ".")
    
31. (setq *error* q_err )
    
32. (setq qscale (getvar "dimscale"))
    
33. (setvar "attreq" 0)
    
34. (setq pt3(mapcar '/ (mapcar '+ pt1 pt2) '(2 2 2)))
    
35. (setq pt0 ( polar pt3 (angtof "90") (* 3.5 (getvar 'dimscale))) )
    
36. (command "_.leader" "non" pt1 "non" pt2 "" "" "n")
    
37. (command "chprop" (entlast) ""  "LA" "02标注" "")
    
38. (if (= (fix(cadr pt1))(fix(cadr pt2)))
    
39. (entmake (list '(0 . "TEXT") (cons 1 "默认文字") (cons 7 (getvar 'textstyle)) '(8 . "06文字层") (cons 10 pt1)(cons 11 pt0)
    
40.                (cons 40 (* (getvar 'dimscale) 5))(cons 41 0.8) (cons 71 0)(cons 72 4)))
    
41. (progn(command "_.line" pt2 (getpoint pt2 "\n指定个引线第三点:") "")(command "chprop" (entlast) ""  "LA" "02标注" "") )
    
42. )
    
43. 
    
44. (SETVAR "CMDECHO" 1)
    
45. ;;(undoe)
    
46. (prin1)
    
47. )

(defun c:qq ( / mirrtxt pt1 pt2 pt3 pt0)<br /> (setq pt1 (getpoint  "\n指定个引线第一点:"))<br /> (setq pt2 (getpoint pt1 "\n指定个引线第二点:"))<br /> ;;(undobe)<br /> (SETVAR "CMDECHO" 0)<br /> (setvar 'dimldrblk "小点")<br /> (setq *error* q_err )<br /> (setq qscale (getvar "dimscale"))<br /> (setvar "attreq" 0)<br /> (setq pt3(mapcar '/ (mapcar '+ pt1 pt2) '(2 2 2)))<br /> (setq pt0 ( polar pt3 (angtof "90") (* 3.5 (getvar 'dimscale))) )<br /> (command "_.leader" "non" pt1 "non" pt2 "" "" "n")<br /> (command "chprop" (entlast) ""  "LA" "02标注" "")<br /> (if (= (fix(cadr pt1))(fix(cadr pt2)))<br /> (entmake (list '(0 . "TEXT") (cons 1 "默认文字") (cons 7 (getvar 'textstyle)) '(8 . "06文字层") (cons 10 pt1)(cons 11 pt0) <br />                (cons 40 (* (getvar 'dimscale) 5))(cons 41 0.8) (cons 71 0)(cons 72 4)))<br /> (progn(command "_.line" pt2 (getpoint pt2 "\n指定个引线第三点:") "")(command "chprop" (entlast) ""  "LA" "02标注" "") )<br /> )<br /> <br /> (SETVAR "CMDECHO" 1)<br /> ;;(undoe)<br /> (prin1)<br /> )<br /> <br /> (defun c:qa ( / mirrtxt pt1 pt2 pt3 pt0)<br /> (setq pt1 (getpoint  "\n指定个引线第一点:"))<br /> (setq pt2 (getpoint pt1 "\n指定个引线第二点:"))<br /> ;;(undobe)<br /> (SETVAR "CMDECHO" 0)<br /> (setvar 'dimldrblk ".")<br /> (setq *error* q_err )<br /> (setq qscale (getvar "dimscale"))<br /> (setvar "attreq" 0)<br /> (setq pt3(mapcar '/ (mapcar '+ pt1 pt2) '(2 2 2)))<br /> (setq pt0 ( polar pt3 (angtof "90") (* 3.5 (getvar 'dimscale))) )<br /> (command "_.leader" "non" pt1 "non" pt2 "" "" "n")<br /> (command "chprop" (entlast) ""  "LA" "02标注" "")<br /> (if (= (fix(cadr pt1))(fix(cadr pt2)))<br /> (entmake (list '(0 . "TEXT") (cons 1 "默认文字") (cons 7 (getvar 'textstyle)) '(8 . "06文字层") (cons 10 pt1)(cons 11 pt0) <br />                (cons 40 (* (getvar 'dimscale) 5))(cons 41 0.8) (cons 71 0)(cons 72 4)))<br /> (progn(command "_.line" pt2 (getpoint pt2 "\n指定个引线第三点:") "")(command "chprop" (entlast) ""  "LA" "02标注" "") )<br /> )<br /> <br /> (SETVAR "CMDECHO" 1)<br /> ;;(undoe)<br /> (prin1)<br /> )

iJero

菜卷鱼 发表于 2018-11-16 08:41
你自己尝试过没有？同一个标注样式名，可以标注出不同的样式！

谢谢，
我研究一下。
再次感谢。