[求助]：用lisp建立尺寸。

shisj

如果不用command，在vlisp中如何建立一个尺寸实体，我一直没有想到，各位，请指教一下，先谢谢了。

cy956

2. 
   
3. (defun #m_dim (d70 d50 d1 p10 p13 p14 lay color / en000)
   
4.   ;d70线性32对齐33; p10基点 p13第一点 p14第二点 d1强制长度值
   
5.   (setq        en000 (list
   
6.               (cons 0 "DIMENSION")
   
7.               (cons 100 "AcDbEntity")
   
8.               (cons 8 lay)
   
9.               (cons 100 "AcDbDimension")
   
10.               (cons 10 p10)
    
11.               '(11 0 0 0)
    
12.               (cons 70 d70)
    
13.               (cons 1 d1)
    
14.               (cons 100 "AcDbAlignedDimension")
    
15.               (cons 13 p13)
    
16.               (cons 14 p14)
    
17.               (cons 50 d50)
    
18.             )
    
19.   )
    
20.   (if (= (logand d70 5)0)
    
21.     (setq en000(append en000 (list '(100 . "AcDbRotatedDimension")))))
    
22.   (if (/= -1 color) (setq en000 (append en000 (list (cons 62 color)))))
    
23.   (if (= nil (entmake en000)) (princ "\n制造 dim 实体失败.")  )
    
24. )
    

<br /> (defun #m_dim (d70 d50 d1 p10 p13 p14 lay color / en000)<br />   ;d70线性32对齐33; p10基点 p13第一点 p14第二点 d1强制长度值<br />   (setq        en000 (list<br />               (cons 0 "DIMENSION")<br />               (cons 100 "AcDbEntity")<br />               (cons 8 lay)<br />               (cons 100 "AcDbDimension")<br />               (cons 10 p10)<br />               '(11 0 0 0)<br />               (cons 70 d70)<br />               (cons 1 d1)<br />               (cons 100 "AcDbAlignedDimension")<br />               (cons 13 p13)<br />               (cons 14 p14)<br />               (cons 50 d50)<br />             )<br />   )<br />   (if (= (logand d70 5)0)<br />     (setq en000(append en000 (list '(100 . "AcDbRotatedDimension")))))<br />   (if (/= -1 color) (setq en000 (append en000 (list (cons 62 color)))))<br />   (if (= nil (entmake en000)) (princ "\n制造 dim 实体失败.")  )<br /> )<br />

shisj

用entmake啊，谢谢了

丹佛

不错，有学一招

urljit

用vla-add也可以吧，我没有试验过

LUCAS

2. 
   
3. ;;lucas
   
4. ;|
   
5. (#m_dim        <線性標註的第一個端點>
   
6.         <線性標註的第二個端點>
   
7.         <指定標註線上的一點>
   
8.         <旋轉顯示線性標註時的角度-弳度>
   
9. )
   
10. (#m_dim '(0 0 0) '(10 0 0) '(5 10 0) pi)
    
11. |;
    
12. (defun #M_DIM (PT1 PT2 PT3 ANG)
    
13.   (vla-adddimrotated
    
14.     (vla-get-modelspace
    
15.       (vla-get-activedocument (vlax-get-acad-object))
    
16.     )
    
17.     (vlax-3d-point PT1)
    
18.     (vlax-3d-point PT2)
    
19.     (vlax-3d-point PT3)
    
20.     ANG
    
21.   )
    
22. )
    

<br /> ;;lucas<br /> ;|<br /> (#m_dim        <線性標註的第一個端點><br />         <線性標註的第二個端點><br />         <指定標註線上的一點><br />         <旋轉顯示線性標註時的角度-弳度><br /> )<br /> (#m_dim '(0 0 0) '(10 0 0) '(5 10 0) pi)<br /> |;<br /> (defun #M_DIM (PT1 PT2 PT3 ANG)<br />   (vla-adddimrotated<br />     (vla-get-modelspace<br />       (vla-get-activedocument (vlax-get-acad-object))<br />     )<br />     (vlax-3d-point PT1)<br />     (vlax-3d-point PT2)<br />     (vlax-3d-point PT3)<br />     ANG<br />   )<br /> )<br />