多段线批量注记坐标

树櫴希德

多段线批量注记坐标，73哥函数

2. (defun C:ddxzb(/ cd cd1 cd2 x y zh zj x y zj1 k ss ent11)
   
3.    (command "LAYER" "M" "htext" "")
   
4.    (princ "\n比例尺:<")
   
5.    (princ scale)
   
6.    (princ ">")
   
7.    (setq scale1 (getreal))
   
8.    (if (not (null scale1)) (setq scale scale1))
   
9.    (setq zh (/ (* 2.5 scale) 1000)
   
10.          zj (* zh 4)
    
11.          zj (list zj zj)
    
12.    )
    
13. 
    
14. ;标注坐标函数
    
15. (defun rrdd (cd zh zj / x y sset1 sset2 sset3)
    
16.       (setvar "luprec" 3)
    
17.       (command "OSNAP" "")
    
18.       (setq x (strcat "Y=" (rtos (car cd)))
    
19.             y (strcat "X=" (rtos (cadr cd)))
    
20.             ;cd (mapcar '+ cd zj)
    
21.       )
    
22.    (setq zj1 (* zh 0.3))
    
23.   (command "LINE" cd
    
24.                (mapcar '- cd (list 0 zj1))
    
25.                ""
    
26.       )
    
27.       (command "TEXT" cd zh 0 y)
    
28.       (setq sset1 (ssget "l"))
    
29.       (setq zj1 (* zh 1.5)
    
30.             cd (mapcar '- cd (list 0 zj1))
    
31.       )
    
32.       (command "TEXT" cd "" 0 x)
    
33.       (setq sset2 (ssget "l"))
    
34.       (setq zj1 (* zh 1.2)
    
35.             cd (mapcar '+ cd (list 0 zj1))
    
36.       )
    
37.       (command "LINE" cd
    
38.                (polar cd 0 (/ (* 25 scale) 1000))
    
39.                ""
    
40.       )
    
41.       (setq sset3 (ssget "l"))
    
42.       (command "select" sset1 sset2 sset3 "")
    
43.       (setq sset (ssget "p"))
    
44. )
    
45. 
    
46. (defun Plinexy(e / p a b n ob q et d d1 en et) ;;多线段节点坐标(滤掉了多余点，未处理假闭合)
    
47.    (setq a(entget e)ob(vlax-ename->vla-object e)et(cdr(assoc 0 a))n 0 p nil d nil)
    
48.    (cond((="LWPOLYLINE"et)
    
49.          (repeat(length a)(setq b (nth n a) n (+ n 1))
    
50.            (if (= 10 (car b))(progn
    
51.                                (setq q(list (cadr b) (caddr b))d1(vlax-curve-getDistAtPoint ob q))
    
52.                                (if p (if (not(member d1 d)) (setq p (append p (list q))d (append d (list d1))))
    
53.                                  (setq p (list q))))
    
54.              )))
    
55.         ((="POLYLINE"et)
    
56.          (SETQ EN (ENTGET (SETQ E (ENTNEXT E))))
    
57.          (WHILE (/= (CDR (ASSOC 0 EN)) "SEQEND")
    
58.            (SETQ q (CDR (ASSOC 10 EN))d1(vlax-curve-getDistAtPoint ob q)q(reverse(cdr(reverse q))))
    
59.            (if p(if (not(member d1 d)) (setq p (append p (list q))d (append d (list d1))))
    
60.              (setq p (list q)))
    
61.            (SETQ EN (ENTGET (SETQ E (ENTNEXT E)))))
    
62.          (setq p(reverse p))
    
63.          ))
    
64.    P)
    
65. ;;;;
    
66. (setq ss (ssget '((0 . "lwpolyline,polyline"))) )
    
67.   (repeat (setq k (sslength ss))
    
68.     (setq ent11 (ssname ss (setq k (1- k))))
    
69. 
    
70. ;(setq ent11(car (entsel"\n请选择多段线：")))
    
71. 
    
72. (foreach cd (plinexy ent11)
    
73.     (rrdd cd zh zj)
    
74. 
    
75. 
    
76.   )
    
77. )
    
78. 
    
79. 
    
80. 
    
81. 
    
82. 
    
83. 
    
84. 
    
85. 
    
86. 
    
87. 
    
88.   )

(defun C:ddxzb(/ cd cd1 cd2 x y zh zj x y zj1 k ss ent11)<br />    (command "LAYER" "M" "htext" "")<br />    (princ "\n比例尺:<")<br />    (princ scale)<br />    (princ ">")<br />    (setq scale1 (getreal))<br />    (if (not (null scale1)) (setq scale scale1))<br />    (setq zh (/ (* 2.5 scale) 1000) <br />          zj (* zh 4) <br />          zj (list zj zj)<br />    )<br /> <br /> ;标注坐标函数<br /> (defun rrdd (cd zh zj / x y sset1 sset2 sset3)<br />       (setvar "luprec" 3)<br />       (command "OSNAP" "")<br />       (setq x (strcat "Y=" (rtos (car cd)))<br />             y (strcat "X=" (rtos (cadr cd))) <br />             ;cd (mapcar '+ cd zj)<br />       )<br />    (setq zj1 (* zh 0.3))<br />   (command "LINE" cd<br />                (mapcar '- cd (list 0 zj1))<br />                "" <br />       )<br />       (command "TEXT" cd zh 0 y)<br />       (setq sset1 (ssget "l"))<br />       (setq zj1 (* zh 1.5)<br />             cd (mapcar '- cd (list 0 zj1))<br />       )<br />       (command "TEXT" cd "" 0 x)<br />       (setq sset2 (ssget "l"))<br />       (setq zj1 (* zh 1.2)<br />             cd (mapcar '+ cd (list 0 zj1))<br />       )<br />       (command "LINE" cd<br />                (polar cd 0 (/ (* 25 scale) 1000))<br />                "" <br />       )<br />       (setq sset3 (ssget "l"))<br />       (command "select" sset1 sset2 sset3 "")<br />       (setq sset (ssget "p"))<br /> )<br /> <br /> (defun Plinexy(e / p a b n ob q et d d1 en et) ;;多线段节点坐标(滤掉了多余点，未处理假闭合)<br />    (setq a(entget e)ob(vlax-ename->vla-object e)et(cdr(assoc 0 a))n 0 p nil d nil)<br />    (cond((="LWPOLYLINE"et)<br />          (repeat(length a)(setq b (nth n a) n (+ n 1))<br />            (if (= 10 (car b))(progn<br />                                (setq q(list (cadr b) (caddr b))d1(vlax-curve-getDistAtPoint ob q))<br />                                (if p (if (not(member d1 d)) (setq p (append p (list q))d (append d (list d1))))<br />                                  (setq p (list q))))<br />              )))<br />         ((="POLYLINE"et)<br />          (SETQ EN (ENTGET (SETQ E (ENTNEXT E))))<br />          (WHILE (/= (CDR (ASSOC 0 EN)) "SEQEND")<br />            (SETQ q (CDR (ASSOC 10 EN))d1(vlax-curve-getDistAtPoint ob q)q(reverse(cdr(reverse q))))<br />            (if p(if (not(member d1 d)) (setq p (append p (list q))d (append d (list d1))))<br />              (setq p (list q)))<br />            (SETQ EN (ENTGET (SETQ E (ENTNEXT E)))))<br />          (setq p(reverse p))<br />          ))<br />    P)<br /> ;;;;<br /> (setq ss (ssget '((0 . "lwpolyline,polyline"))) )<br />   (repeat (setq k (sslength ss))<br />     (setq ent11 (ssname ss (setq k (1- k))))<br /> <br /> ;(setq ent11(car (entsel"\n请选择多段线：")))<br /> <br /> (foreach cd (plinexy ent11)<br />     (rrdd cd zh zj)<br /> <br /> <br />   )<br /> )<br /> <br /> <br /> <br /> <br /> <br /> <br /> <br /> <br /> <br /> <br />   )

spp_wall

XY 叠在一起？

luojie110

; 错误: no function definition: VLAX-ENAME->VLA-OBJECT
这是什么原因呢？