哪位老师能批量选择梁集中标注

朽木大师

试了一下，没提示出错，但也没有任何作用

tianyi1230

小萝卜头有一个好用的集中标注插件

lizhiqiang9801

我也很需要这个程序 院长的程序使用了一下 在2007中怎么不能运行  希望院长有时间完善一下  

s4ns4n

赞一个赞一个

yjjyjj

加载后怎么不能运行呢

yjjyjj

在CAD2006中不能运行，咋回事？

Hermite

等级不够下不了？

ddlmmc1

试一下 看看能不能用

xyp1964

2. ;; 集中标注选择(defun c:tt ()
   
3.   (CMDLAsc0)
   
4.   (defun xyp-SsgetWithLine (ename dist etype / p10 p11 dd rad r1 p1 p2 p4 p3 ptn lst)
   
5.     (setq p10 (vlax-curve-getstartPoint ename)
   
6.           p11 (vlax-curve-getEndPoint ename)
   
7.           dd  (* dist xyp-sc)
   
8.           rad (angle p10 p11)
   
9.           r1  (* pi 0.5)
   
10.           p1  (polar p10 (- rad r1) dd)
    
11.           p2  (polar p11 (- rad r1) dd)
    
12.           p4  (polar p10 (+ rad r1) dd)
    
13.           p3  (polar p11 (+ rad r1) dd)
    
14.           ptn (list p1 p2 p3 p4)
    
15.           lst (list (cons 0 etype) (cons 8 (xyp-DXF 8 ename)))
    
16.     )
    
17.     (ssget "CP" ptn lst)
    
18.   )
    
19.   (if (and (setq s0 (car (entsel "\n选择引线样板: ")))
    
20.            (xyp-etype s0 "line")
    
21.       )
    
22.     (progn
    
23.       (redraw s0 3)
    
24.       (setq ss (ssget (list '(0 . "line") (cons 8 (xyp-DXF 8 s0))))
    
25.             j        -1
    
26.             ss1 ss
    
27.       )
    
28.       (while (setq s1 (ssname ss (setq j (1+ j))))
    
29.         (if (setq ss2 (xyp-SsgetWithLine s1 300 "text"));距离根据实际需要调整
    
30.           (setq ss1 (SsUnion ss2 ss1))
    
31.         )
    
32.       )
    
33.       (if ss1
    
34.         (sssetfirst ss1 ss1)
    
35.       )
    
36.     )
    
37.   )
    
38.   (CMDLA1)
    
39. )

;; 集中标注选择(defun c:tt ()<br />   (CMDLAsc0)<br />   (defun xyp-SsgetWithLine (ename dist etype / p10 p11 dd rad r1 p1 p2 p4 p3 ptn lst)<br />     (setq p10 (vlax-curve-getstartPoint ename)<br />           p11 (vlax-curve-getEndPoint ename)<br />           dd  (* dist xyp-sc)<br />           rad (angle p10 p11)<br />           r1  (* pi 0.5)<br />           p1  (polar p10 (- rad r1) dd)<br />           p2  (polar p11 (- rad r1) dd)<br />           p4  (polar p10 (+ rad r1) dd)<br />           p3  (polar p11 (+ rad r1) dd)<br />           ptn (list p1 p2 p3 p4)<br />           lst (list (cons 0 etype) (cons 8 (xyp-DXF 8 ename)))<br />     )<br />     (ssget "CP" ptn lst)<br />   )<br />   (if (and (setq s0 (car (entsel "\n选择引线样板: ")))<br />            (xyp-etype s0 "line")<br />       )<br />     (progn<br />       (redraw s0 3)<br />       (setq ss (ssget (list '(0 . "line") (cons 8 (xyp-DXF 8 s0))))<br />             j        -1<br />             ss1 ss<br />       )<br />       (while (setq s1 (ssname ss (setq j (1+ j))))<br />         (if (setq ss2 (xyp-SsgetWithLine s1 300 "text"));距离根据实际需要调整<br />           (setq ss1 (SsUnion ss2 ss1))<br />         )<br />       )<br />       (if ss1<br />         (sssetfirst ss1 ss1)<br />       )<br />     )<br />   )<br />   (CMDLA1)<br /> )