[LISP]请高手帮忙，还是标注边长的程序

zhongguola

诸位大哥，我在绘图时标注多边形边长经常是一个边、一个边的标注边长，这样工作起来就非常麻烦。

劳驾诸位大哥，能不能编一个程序，使得标注边长更加方便、快捷。

谢谢！

ZZXXQQ

请试用。

2. (DEFUN C:DIMPL ()
3. (SETVAR "CMDECHO" 0)
4. (SETQ OLDOS (GETVAR "OSMODE"))
5. (COMMAND ".UNDO" "BE")
6. (SETVAR "OSMODE" 0)
7. (PROMPT "\nSelect lwpolyline :")
8. (IF (SETQ SS (SSGET '((0 . "LWPOLYLINE")))) (PROGN
9.   (SETVAR "DIMSD1" 1)  (SETVAR "DIMSD2" 1)
10.   (SETVAR "DIMSE1" 1)  (SETVAR "DIMSE2" 1)
11.   (SETQ SL (SSLENGTH SS) I 0)
12.   (REPEAT SL
13.    (SETQ LC (ENTGET (SSNAME SS I)) I (1+ I))
14.    (SETQ LL (LENGTH LC) J 0 N (CDR (ASSOC 90 LC))
15.          CL (CDR (ASSOC 70 LC)) K 1)
16.    (WHILE (< J LL)
17.     (IF (/= (CAR (NTH J LC)) 10) (SETQ J (1+ J)) (SETQ LL J))
18.    )
19.    (SETQ P1 (CDR (NTH J LC)) PS P1)
20.    (WHILE (< K N)
21.     (SETQ P2 (CDR (NTH (+ J (* K 4)) LC)))
22.     (COMMAND "DIMALIGNED" P1 P2 P2)
23.     (SETQ P1 P2 K (1+ K))
24.    )
25.    (IF (= CL 1) (COMMAND "DIMALIGNED" P1 PS P1))
26.   )
27.   (SETVAR "DIMSD1" 0)  (SETVAR "DIMSD2" 0)
28.   (SETVAR "DIMSE1" 0)  (SETVAR "DIMSE2" 0)
29. ))
30. (COMMAND ".UNDO" "E")
31. (SETVAR "OSMODE" OLDOS)
32. (SETVAR "CMDECHO" 1)
33. (PRINC)
34. )

复制代码

zhongguola

多谢大哥的程序。

这个程序很好，但还是有个问题，就是在标注边长的时候有的边长在多边形的外侧，有的边长在多边形的内侧。

请问，能不能把所有的边长标注都调整为外侧呢？

谢谢！！！

meflying

跟你说了很多次了,让你不要一个问题发多个帖

2. (defun c:Dimline( / dir gap ss i ent ents pts)
3.   (vl-load-com)
4.   (setq dir (getstring "\n选择方向[(A)顺时针外部/(B)顺时针内部](逆时针则相反)<A>:"))
5.   (setq gap (getreal "\n输入标注文字到边边距离:"))
6.   (if (= (strcase dir) "B")
7.     (setq dir 0)
8.     (setq dir pi)
9.   )
10.   (setq ss (ssget '((0 . "LWPOLYLINE"))))
11.   (setq i 0)
12.   (setvar "cmdecho" 0)
13.   (if ss
14.     (progn
15.       (repeat (sslength ss)
16. (setq ent (ssname ss i))
17. (setq ents (entget ent))
18. (setq pts (mapcar 'cdr (vl-remove-if-not '(lambda (e) (= (car e) 10)) ents)))
19. (mapcar '(lambda(e1 e2) (command "_.dimaligned" e1 e2 (polar e1 (+ dir (angle e1 e2) (/ pi 2.0)) gap)))
20.    pts (append (cdr pts) (list (car pts))))
21. (setq i (1+ i))
22.       )
23.     );progn
24.   );if
25.   (princ)
26. )

(defun c:Dimline( / dir gap ss i ent ents pts)   (vl-load-com)   (setq dir (getstring "\n选择方向[(A)顺时针外部/(B)顺时针内部](逆时针则相反)<A>:"))   (setq gap (getreal "\n输入标注文字到边边距离:"))   (if (= (strcase dir) "B")     (setq dir 0)     (setq dir pi)   )   (setq ss (ssget '((0 . "LWPOLYLINE"))))   (setq i 0)   (setvar "cmdecho" 0)   (if ss     (progn       (repeat (sslength ss) (setq ent (ssname ss i)) (setq ents (entget ent)) (setq pts (mapcar 'cdr (vl-remove-if-not '(lambda (e) (= (car e) 10)) ents))) (mapcar '(lambda(e1 e2) (command "_.dimaligned" e1 e2 (polar e1 (+ dir (angle e1 e2) (/ pi 2.0)) gap)))    pts (append (cdr pts) (list (car pts)))) (setq i (1+ i))       )     );progn   );if   (princ) )

zhongguola

真对不起！

因为没人理我，我才多发了几个帖子。

zhongguola

下次改正

zhongguola

按顺时针标注时，当线的角度大于行等于180度时，怎样才能把长度标注在线段的另一侧呢？

meflying

标注样式中修改,如图,选择外部

zhongguola

我的意思是指：

在您的标注边长的程序中，我按顺时针标注多边形时，当线段的角度小于180度时，边长的标注就会在多边形的外侧，线段的角度大于等于180度时就会在内侧，我想让它统一标注在多边形的外侧（不管线段的角度是否小于、等于、大于180度，都要标注在多边形的外侧），在您的程序中该怎样实现呢？

谢谢！！！

meflying

我的程序就是按你的要求啊,不会由于180而改变啊,看图: