多边形批量快速标注LSP

Linhay

求破解,谢谢各位

平凡的夏夜清风

菜卷鱼 发表于 2014-1-16 08:38
我不是版主，不知道我能不能改

这么多高手啊！

Linhay

Linhay 发表于 2015-1-29 18:47
呃.麻烦问一下不想要左边这样的,怎么破?谢谢

谢啦,我找找研究一下

Linhay

各位前辈,关于判断点是否在多段线内我在论坛找了代码,因为本人没有lisp基础,自己胡乱拼了一下,结果不出所料,运行错误!显示的错误为:"; 错误: 参数类型错误: 二维/三维点: nil"
麻烦各位帮忙看一看怎么弄,谢谢了.附上自己乱拼的代码,欢迎嘲讽,但请不吝指导.

2. (defun c:z1 (/)
   
3.    (prompt "此程序根据当前标注样式进行标注,设置textsize变量可修改与标注线的距离!")
   
4. (setq dic (* 7 (getvar "dimscale")))
   
5.   (setq ss (ssget))
   
6.   (setq n 0)
   
7.   (repeat (sslength ss)
   
8.     (setq en (ssname ss n))
   
9.     (setq endata (entget en))
   
10.     (if (= (cdr (assoc 0 endata)) "LWPOLYLINE")
    
11.       (mmh_3 en)
    
12.       (if (= (cdr (assoc 0 endata)) "ARC")
    
13. (mmh_1 en)
    
14. (mmh_2 endata)
    
15.       )
    
16.     )
    
17.     (setq n (1+ n))
    
18.   )
    
19.   (princ)
    
20. )
    
21. (prompt "<<z1>>快速标注")
    
22. (defun mmh_1 (en)
    
23.   (setvar "osmode" 0)
    
24.   (setq po_1 (vlax-curve-getstartPoint en))
    
25.   (setq po_2 (vlax-curve-getendPoint en))
    
26.   (setq po_1_x (car po_1))
    
27.   (setq po_1_y (cadr po_1))
    
28.   (setq po_2_x (car po_2))
    
29.   (setq po_2_y (cadr po_2))
    
30.   (command "dimaligned" po_1 po_2 po_1)
    
31.   (setvar "osmode" 16383)
    
32. )
    
33. (defun mmh_2 (endata)
    
34.   (setvar "osmode" 0)
    
35.   (setq p_1 (cdr (assoc 10 endata)))
    
36.   (setq p_2 (cdr (assoc 11 endata)))
    
37.   (setq p3 (polar p_1 (+ (angle p_1 p_2) (/ pi 2)) dic))
    
38.   (cond
    
39.     ((isptinpm p3 endata)
    
40.   (setq px (polar p_2 (+ (angle p_2 p_1) (/ pi 2)) dic))
    
41.     )
    
42.     (t
    
43.        (setq px p3)
    
44.      )
    
45.    )
    
46.   (command "dimaligned" p_1 p_2 px)
    
47.   (setvar "osmode" 16383)
    
48. )
    
49. (defun mmh_3 (en)
    
50.   (setq m 0)
    
51.   (command "explode" en "")
    
52.   (setq ssl (ssget "p"))
    
53.   (repeat (sslength ssl)
    
54.     (setq enl (ssname ssl m))
    
55.     (setq enldata (entget enl))
    
56.     (if (= (cdr (assoc 0 enldata)) "ARC")
    
57.       (mmh_1 enl)
    
58.       (mmh_2 enldata)
    
59.     )
    
60.     (setq m (1+ m))
    
61.   )
    
62.   (command "pedit" "m" ssl ""  "j" "" "")
    
63. )
    
64. 
    
65. 
    
66.   ;判断点是否在多边形内
    
67.   (defun isptinpm (/pt ptl)
    
68.     (equal pi(abs(apply '+(mapcar'(lambda (x y)(rem (- (angle pt x) (angle pt y)) pi))
    
69.                                (reverse (cdr (reverse (cons (last ptl) ptl))))
    
70.                           ptl
    
71.                        )
    
72.                )
    
73.           )
    
74.          1e-6
    
75.      )
    
76.   )

(defun c:z1 (/)<br />    (prompt "此程序根据当前标注样式进行标注,设置textsize变量可修改与标注线的距离!")<br /> (setq dic (* 7 (getvar "dimscale"))) <br />   (setq ss (ssget))<br />   (setq n 0)<br />   (repeat (sslength ss)<br />     (setq en (ssname ss n))<br />     (setq endata (entget en))<br />     (if (= (cdr (assoc 0 endata)) "LWPOLYLINE")<br />       (mmh_3 en)<br />       (if (= (cdr (assoc 0 endata)) "ARC")<br /> (mmh_1 en)<br /> (mmh_2 endata)<br />       )<br />     )<br />     (setq n (1+ n))<br />   )<br />   (princ)<br /> )<br /> (prompt "<<z1>>快速标注")<br /> (defun mmh_1 (en)<br />   (setvar "osmode" 0)<br />   (setq po_1 (vlax-curve-getstartPoint en))<br />   (setq po_2 (vlax-curve-getendPoint en))<br />   (setq po_1_x (car po_1))<br />   (setq po_1_y (cadr po_1))<br />   (setq po_2_x (car po_2))<br />   (setq po_2_y (cadr po_2))<br />   (command "dimaligned" po_1 po_2 po_1)<br />   (setvar "osmode" 16383)<br /> )<br /> (defun mmh_2 (endata)<br />   (setvar "osmode" 0)<br />   (setq p_1 (cdr (assoc 10 endata)))<br />   (setq p_2 (cdr (assoc 11 endata)))<br />   (setq p3 (polar p_1 (+ (angle p_1 p_2) (/ pi 2)) dic))<br />   (cond<br />     ((isptinpm p3 endata)<br />   (setq px (polar p_2 (+ (angle p_2 p_1) (/ pi 2)) dic))<br />     )<br />     (t<br />        (setq px p3)<br />      )<br />    )<br />   (command "dimaligned" p_1 p_2 px)<br />   (setvar "osmode" 16383)<br /> )<br /> (defun mmh_3 (en)<br />   (setq m 0)<br />   (command "explode" en "")<br />   (setq ssl (ssget "p"))<br />   (repeat (sslength ssl)<br />     (setq enl (ssname ssl m))<br />     (setq enldata (entget enl))<br />     (if (= (cdr (assoc 0 enldata)) "ARC")<br />       (mmh_1 enl)<br />       (mmh_2 enldata)<br />     )<br />     (setq m (1+ m))<br />   )<br />   (command "pedit" "m" ssl ""  "j" "" "")<br /> )<br /> <br /> <br />   ;判断点是否在多边形内<br />   (defun isptinpm (/pt ptl)<br />     (equal pi(abs(apply '+(mapcar'(lambda (x y)(rem (- (angle pt x) (angle pt y)) pi))<br />                                (reverse (cdr (reverse (cons (last ptl) ptl))))<br />                           ptl<br />                        )<br />                )<br />           )<br />          1e-6<br />      )<br />   )

此昵称没人关注

顶起，好程序～如果能加入一个选项，选择为封闭区域内或者区域外就完美了

xman55555aaa

菜卷鱼 发表于 2014-1-16 08:38
我不是版主，不知道我能不能改

标注位置的控制怎么控制呢？我的文字高度为14，之间就在线段上面了！

MENGZE

解决了经常遇到的问题就是好程序谢谢了

stevenag27

能加上角度和对角线就完美了

bai2000

清山小石

菜卷鱼 发表于 2014-1-16 08:38
我不是版主，不知道我能不能改

这个要怎么做？