标注180.LSP

树櫴希德

1. ;;;;;;;;;;;;;;;;;;
   
2. (defun 10zu ( e / e)
   
3.   (cdr(assoc 51(entget e)))
   
4.   )
   
5. ;;;;;;;;;;;;;;;;;;
   
6. 
   
7. 
   
8. (defun c:tt11 ( / lst ent pts pt demj zmj i) ;求平均数
   
9. (setq lst (ssget '((0 . "DIMENSION") (8 . "占地图标注")   )   )  )
   
10.   
    
11. (setq i 0)
    
12. ;(setq zmj 0.000)
    
13.   
    
14. (while  (< i (sslength lst))
    
15. 
    
16. (setq ent (ssname lst i))
    
17.   (entmod (subst (cons 51 (+ pi  (10zu ent)  )) (assoc 51(entget ent)) (entget ent)   ))
    
18. 
    
19. (setq i (+ i 1))
    
20.   )
    
21.   )

;;;;;;;;;;;;;;;;;;<br /> (defun 10zu ( e / e)<br />   (cdr(assoc 51(entget e)))<br />   )<br /> ;;;;;;;;;;;;;;;;;;<br /> <br /> <br /> (defun c:tt11 ( / lst ent pts pt demj zmj i) ;求平均数<br /> (setq lst (ssget '((0 . "DIMENSION") (8 . "占地图标注")   )   )  )<br />   <br /> (setq i 0)<br /> ;(setq zmj 0.000)<br />   <br /> (while  (< i (sslength lst))<br /> <br /> (setq ent (ssname lst i))<br />   (entmod (subst (cons 51 (+ pi  (10zu ent)  )) (assoc 51(entget ent)) (entget ent)   ))<br /> <br /> (setq i (+ i 1))<br />   )<br />   )

xj6019

有句古话：踏破铁鞋无觅处......

pengfei2010

楼主 这是要干嘛呢？是要求助还是 分享

yoyoho

感谢 树櫴希德 分享程序!!!!

happy336

谢谢分享，支持

dasha321

这是用来做啥的啊，

ajunseo

有句古话：踏破铁鞋无觅处......

meja

强制有些标注的数字朝向某个方向

树櫴希德

1. ;|
   
2. 标注斜距离
   
3. |;
   
4. (defun c:t11t  (/ dis en pt1 pt2)
   
5.     (setq pt1 (getpoint "\n标注第一点:")
   
6.           pt2 (getpoint pt1 "\n标注第二点:")
   
7.           dis (rtos (distance pt1 pt2) 2 3))
   
8.     (command "_.dimaligned" pt1 pt2 pause)
   
9.     (setq en (entget (entlast))
   
10.           en (subst (cons 1 dis) (assoc 1 en) en))
    
11.     (entmod en))

;|<br /> 标注斜距离<br /> |;<br /> (defun c:t11t  (/ dis en pt1 pt2) <br />     (setq pt1 (getpoint "\n标注第一点:")<br />           pt2 (getpoint pt1 "\n标注第二点:")<br />           dis (rtos (distance pt1 pt2) 2 3))<br />     (command "_.dimaligned" pt1 pt2 pause)<br />     (setq en (entget (entlast))<br />           en (subst (cons 1 dis) (assoc 1 en) en))<br />     (entmod en))

wline

有用，插眼，需要再过来