铝板展开折减系数换算快捷lisp

jerisonfang

使用方法简述：


cad命令输入zj，空格确认，提示输入折减系数（即铝板折弯90度时候的折减数值，比如3mm铝板单边折减是2.5），输入确认以后提示输入角度，输入确认以后提示点击插入点，点击完即出现折减换算图形

2. (defun c:zj ()
   
3.   (setvar "cmdecho" 0)
   
4.   (setvar "blipmode" 0)
   
5.   (setvar "OSMODE" 18103)
   
6.   (vl-load-com)
   
7.   (progn
   
8.     (command "_DIMSTYLE" "r" "AVA-01")
   
9.     (setq str (getreal "请输入折减系数:"))
   
10.     (if (= str nil) (setq str 2.5))
    
11.     (setq ang (getreal "\n请输入角度:"))
    
12.     (setq ppp (getpoint "\n请输入插入点:"))
    
13.     (setq xs str)
    
14.     (setq pp1 (mapcar '+ ppp '(50 0 0)))
    
15.     (setq pp2 (mapcar '+ ppp '(50 10 0)))
    
16.     (setq pp3 (mapcar '+ ppp '(0.0 -10 0.0)))
    
17.     (setq pp4 (mapcar '+ ppp '(10 0 0)))
    
18.     (command "PLINE" pp1 ppp "")
    
19.     (setq ss (entlast))
    
20.     (command "copy" ss "" "0,0,0" "0,0,0")
    
21.     (setq ss1 (ssget "P"))
    
22.     (command "rotate" ss1 "" ppp ang)
    
23.     (setq ss2 (entlast))
    
24.     (setq ss3 (ssname ss1 0))
    
25.     (setq obj1 (vlax-ename->vla-object ss3))
    
26.     (setq pt1 (vla-get-Coordinates obj1))
    
27.     (setq p01 (vlax-variant-value pt1))
    
28.     (setq  p01 (vlax-safearray->list p01))
    
29.     (setq p11 (list (car p01) (cadr p01) 0.0))
    
30.     (command "peditaccept" 1)
    
31.     (command "_pedit" "m" ss2 ss3 "" "j" "0.0" "")   
    
32.     (command "offset" xs (entlast) pp2 "")
    
33.     (setq a1 (entlast))
    
34.     (setq obj (vlax-ename->vla-object a1))
    
35.     (setq pt (vla-get-Coordinates obj))
    
36.     (setq p0 (vlax-variant-value pt))
    
37.     (setq  p0 (vlax-safearray->list p0))
    
38.     (setq p1 (list (caddr p0) (cadddr p0) 0.0))
    
39.     (setq p2 (list (car p1) (- (cadr p1) xs) 0.0))
    
40.     (command "DIMLINEAR" ppp p1  pp3 "")
    
41.     (command "DIMLINEAR" p1 p2 pp1 "")
    
42.     (command "_DIMANGULAR" "" ppp pp1 p11 pp2)   
    
43.   )
    
44.   (setvar "OSMODE" 1719)  
    
45. )

(defun c:zj ()<br />   (setvar "cmdecho" 0)<br />   (setvar "blipmode" 0)<br />   (setvar "OSMODE" 18103)<br />   (vl-load-com)<br />   (progn<br />     (command "_DIMSTYLE" "r" "AVA-01")<br />     (setq str (getreal "请输入折减系数:"))<br />     (if (= str nil) (setq str 2.5))<br />     (setq ang (getreal "\n请输入角度:"))<br />     (setq ppp (getpoint "\n请输入插入点:"))<br />     (setq xs str)<br />     (setq pp1 (mapcar '+ ppp '(50 0 0)))<br />     (setq pp2 (mapcar '+ ppp '(50 10 0)))<br />     (setq pp3 (mapcar '+ ppp '(0.0 -10 0.0)))<br />     (setq pp4 (mapcar '+ ppp '(10 0 0)))<br />     (command "PLINE" pp1 ppp "")<br />     (setq ss (entlast))<br />     (command "copy" ss "" "0,0,0" "0,0,0")<br />     (setq ss1 (ssget "P"))<br />     (command "rotate" ss1 "" ppp ang)<br />     (setq ss2 (entlast))<br />     (setq ss3 (ssname ss1 0))<br />     (setq obj1 (vlax-ename->vla-object ss3))<br />     (setq pt1 (vla-get-Coordinates obj1))<br />     (setq p01 (vlax-variant-value pt1))<br />     (setq  p01 (vlax-safearray->list p01))<br />     (setq p11 (list (car p01) (cadr p01) 0.0))<br />     (command "peditaccept" 1)<br />     (command "_pedit" "m" ss2 ss3 "" "j" "0.0" "")    <br />     (command "offset" xs (entlast) pp2 "")<br />     (setq a1 (entlast))<br />     (setq obj (vlax-ename->vla-object a1))<br />     (setq pt (vla-get-Coordinates obj))<br />     (setq p0 (vlax-variant-value pt))<br />     (setq  p0 (vlax-safearray->list p0))<br />     (setq p1 (list (caddr p0) (cadddr p0) 0.0))<br />     (setq p2 (list (car p1) (- (cadr p1) xs) 0.0))<br />     (command "DIMLINEAR" ppp p1  pp3 "")<br />     (command "DIMLINEAR" p1 p2 pp1 "")<br />     (command "_DIMANGULAR" "" ppp pp1 p11 pp2)    <br />   )<br />   (setvar "OSMODE" 1719)  <br /> )

lxl217114

感谢分享源码

sowin

非专业，看不懂了