[讨论]：如何在AUTOCAD中实现鼠标驱动和尺寸驱动?

lsjjm

出个题目: 如何在AUTOCAD中实现鼠标驱动和尺寸驱动?

eachy

换个软件更好实现：ProE、Invertor

lsjjm

不好意思, 就是要求在AUTOCAD里...

ar99a17

请问楼主，什么是鼠标驱动和尺寸驱动？

LUCAS

2. 
   
3. ;;By LUCAS
   
4. ;;尺寸驱动程序测试!!
   
5. ;|
   
6. 指令: _circle 指定圆的中心点或 [三点(3P)/两点(2P)/相切、相切、半径(T)]:
   
7. 指定圆的半径或 [直径(D)] <30.4587>: D
   
8. 指定圆的直径 <60.9174>: 60
   
9. 指令: _dimdiameter
   
10. 选取一个弧或圆:
    
11. 标注文字 = 60
    
12. 指定标注线位置或 [多行文字(M)/文字(T)/角度(A)]:
    
13. |;
    
14. ;;先修改标注尺寸(60改为40)
    
15. ;;再用下列程序  点选标注  再点选圆
    
16. (defun C:CHIQD_LAI ()
    
17.   (setvar "cmdecho" 0)
    
18.   (setq DIM_CIRCLE (car (entsel "\nSelect dim_circle:")))
    
19.   (setq E_CIRCLE (car (entsel "\nSelect e_circle:")))
    
20.   (setq ENT_CIRCLE (entget E_CIRCLE))
    
21.   (setq ENT_DIM (entget DIM_CIRCLE))
    
22.   (setq
    
23.     ENT_CIRCLE
    
24.      (subst (cons 40 (/ (atof (cdr (assoc 1 ENT_DIM))) 2.0))
    
25.             (assoc 40 ENT_CIRCLE)
    
26.             ENT_CIRCLE
    
27.      )
    
28.   )
    
29.   (entmod ENT_CIRCLE)
    
30.   (command
    
31.     "_.dimdiameter"
    
32.     (list E_CIRCLE
    
33.           (polar (cdr (assoc 10 ENT_CIRCLE))
    
34.                  0
    
35.                  (cdr (assoc 40 ENT_CIRCLE))
    
36.           )
    
37.     )
    
38.     (polar (cdr (assoc 10 ENT_CIRCLE))
    
39.            (angle (cdr (assoc 10 ENT_DIM)) (cdr (assoc 15 ENT_DIM)))
    
40.            (+ 10 (cdr (assoc 40 ENT_CIRCLE)))
    
41.     )
    
42.   )
    
43.   (command "_.ERASE" DIM_CIRCLE "")
    
44.   (princ)
    
45. )
    

<br /> ;;By LUCAS<br /> ;;尺寸驱动程序测试!!<br /> ;|<br /> 指令: _circle 指定圆的中心点或 [三点(3P)/两点(2P)/相切、相切、半径(T)]:<br /> 指定圆的半径或 [直径(D)] <30.4587>: D<br /> 指定圆的直径 <60.9174>: 60<br /> 指令: _dimdiameter<br /> 选取一个弧或圆:<br /> 标注文字 = 60<br /> 指定标注线位置或 [多行文字(M)/文字(T)/角度(A)]:<br /> |;<br /> ;;先修改标注尺寸(60改为40)<br /> ;;再用下列程序  点选标注  再点选圆<br /> (defun C:CHIQD_LAI ()<br />   (setvar "cmdecho" 0)<br />   (setq DIM_CIRCLE (car (entsel "\nSelect dim_circle:")))<br />   (setq E_CIRCLE (car (entsel "\nSelect e_circle:")))<br />   (setq ENT_CIRCLE (entget E_CIRCLE))<br />   (setq ENT_DIM (entget DIM_CIRCLE))<br />   (setq<br />     ENT_CIRCLE<br />      (subst (cons 40 (/ (atof (cdr (assoc 1 ENT_DIM))) 2.0))<br />             (assoc 40 ENT_CIRCLE)<br />             ENT_CIRCLE<br />      )<br />   )<br />   (entmod ENT_CIRCLE)<br />   (command<br />     "_.dimdiameter"<br />     (list E_CIRCLE<br />           (polar (cdr (assoc 10 ENT_CIRCLE))<br />                  0<br />                  (cdr (assoc 40 ENT_CIRCLE))<br />           )<br />     )<br />     (polar (cdr (assoc 10 ENT_CIRCLE))<br />            (angle (cdr (assoc 10 ENT_DIM)) (cdr (assoc 15 ENT_DIM)))<br />            (+ 10 (cdr (assoc 40 ENT_CIRCLE)))<br />     )<br />   )<br />   (command "_.ERASE" DIM_CIRCLE "")<br />   (princ)<br /> )<br />