多段线标注程序

1028882406@qq.c

好程序。支持下

WhoCanSay

sicky111 发表于 2016-11-11 14:22

得自己动手完善   

yjch

好好学习天天向上

du945862399

加上了顺时针的判断以及全部标注上

1. (defun c:pdim (/ plSet pLlst vLst oldOsn cAng cDis cPt)
   
2.   (princ "\n<<< Select LwPolyline for dimensioning >>> ")
   
3.   (if (setq plSet (ssget '((0 . "LWPOLYLINE"))))
   
4.     (progn
   
5.       (setq pLlst (vl-remove-if
   
6.                     'listp
   
7.                     (mapcar 'cadr (ssnamex plSet))
   
8.                   )
   
9.       )
   
10.       (setvar "OSMODE" 0)
    
11.       (setvar "CMDECHO" 0)
    
12.       (foreach pl pLlst
    
13.         (setq vLst   (mapcar 'cdr
    
14.                              (vl-remove-if-not
    
15.                                '(lambda (x) (= 10 (car x)))
    
16.                                (entget pl)
    
17.                              )
    
18.                      )
    
19.               oldOsn (getvar "OSMODE")
    
20.         )                                ; end setq
    
21.         (setq vLst (append vLst (list (car vLst))))
    
22.         (if (< 2 (length vLst))
    
23.                 (setq ang (getAng (car vLst) (cadr vLst) (caddr vLst)))
    
24.                   (setq ang (/ pi 2))
    
25.         )
    
26.        
    
27.         (while (< 1 (length vLst))
    
28.           (setq        cAng (angle (car vLst) (cadr vLst))
    
29.                 cDis (/ (distance (car vLst) (cadr vLst)) 2)
    
30.                 cPt  (polar (polar (car vLst) cAng cDis)
    
31.                             (+ cAng ang)
    
32.                             (* 2 (getvar "DIMTXT"))
    
33.                      )
    
34.           )                                ; end setq
    
35.           (command "_.dimaligned" (car vLst) (cadr vLst) cPt)
    
36.           (setq vLst (cdr vLst))
    
37.         )                                ; end while
    
38.       )                                        ; end foreach
    
39.       (setvar "OSMODE" oldOsn)
    
40.       (setvar "CMDECHO" 1)
    
41.     )                                        ; end progn
    
42.   )                                        ; end if
    
43.   (princ)
    
44. )
    
45. 
    
46. (defun getAng( p1 p2 p3 )
    
47.         (if (clockwise  p1 p2 p3 )
    
48.                 (/ pi 2)
    
49.                   (/ pi -2)
    
50.         )
    
51. )
    
52. 
    
53. (defun clockwise ( p1 p2 p3 )
    
54.     (< (sin (- (angle p1 p3) (angle p1 p2))) -1e-14)
    
55. )

(defun c:pdim (/ plSet pLlst vLst oldOsn cAng cDis cPt)<br />   (princ "\n<<< Select LwPolyline for dimensioning >>> ")<br />   (if (setq plSet (ssget '((0 . "LWPOLYLINE"))))<br />     (progn<br />       (setq pLlst (vl-remove-if<br />                     'listp<br />                     (mapcar 'cadr (ssnamex plSet))<br />                   )<br />       )<br />       (setvar "OSMODE" 0)<br />       (setvar "CMDECHO" 0)<br />       (foreach pl pLlst<br />         (setq vLst   (mapcar 'cdr<br />                              (vl-remove-if-not<br />                                '(lambda (x) (= 10 (car x)))<br />                                (entget pl)<br />                              )<br />                      )<br />               oldOsn (getvar "OSMODE")<br />         )                                ; end setq<br />         (setq vLst (append vLst (list (car vLst))))<br />         (if (< 2 (length vLst))<br />                 (setq ang (getAng (car vLst) (cadr vLst) (caddr vLst)))<br />                   (setq ang (/ pi 2))<br />         )<br />         <br />         (while (< 1 (length vLst))<br />           (setq        cAng (angle (car vLst) (cadr vLst))<br />                 cDis (/ (distance (car vLst) (cadr vLst)) 2)<br />                 cPt  (polar (polar (car vLst) cAng cDis)<br />                             (+ cAng ang)<br />                             (* 2 (getvar "DIMTXT"))<br />                      )<br />           )                                ; end setq<br />           (command "_.dimaligned" (car vLst) (cadr vLst) cPt)<br />           (setq vLst (cdr vLst))<br />         )                                ; end while<br />       )                                        ; end foreach<br />       (setvar "OSMODE" oldOsn)<br />       (setvar "CMDECHO" 1)<br />     )                                        ; end progn<br />   )                                        ; end if<br />   (princ)<br /> )<br /> <br /> (defun getAng( p1 p2 p3 )<br />         (if (clockwise  p1 p2 p3 )<br />                 (/ pi 2)<br />                   (/ pi -2)<br />         )<br /> )<br /> <br /> (defun clockwise ( p1 p2 p3 )<br />     (< (sin (- (angle p1 p3) (angle p1 p2))) -1e-14)<br /> )

du945862399

du945862399 发表于 2019-11-10 14:05
加上了顺时针的判断以及全部标注上

如果一个封闭的多段线内既有顺时针，也有逆时针，还是会有一部分标注是在里面，所以判断顺时针只适用于顺逆时针方向单一的

du945862399

du945862399 发表于 2019-11-10 14:05
加上了顺时针的判断以及全部标注上

如果一个封闭的多段线内既有顺时针，也有逆时针，还是会有一部分标注是在里面，所以判断顺时针只适用于顺逆时针方向单一的

天下第五坑

这个要是设置标注到图形的距离怎么加代码？例如在cPt代码前加入正值，所有的标注都在多段线内；输入负值，所有的标注就部分在外面，但是不稳定，且距离不固定。
          (command "_.dimaligned" (car vLst) (cadr vLst) -200 cPt)
          (setq vLst (cdr vLst))
这段代码。