求助：指北针程序完善

xd-xdcad

2. (defun c:zbz (/ r a b c d e )
   
3.   (setvar "cmdecho" 0)
   
4.     (command "osnap" "none")
   
5. (setq a (getpoint "\n输入一点:"))
   
6.   (if (not (tblsearch "layer" "指北针"))
   
7. (command "_layer" "m" "指北针" "" "")
   
8. )
   
9. (setq r 24)
   
10.   (setq b (polar a (/ (* pi 3) 2) r))
    
11.   (command "circle" "2p" a b "")
    
12.   (setq c (polar a (/ (* pi 273.59) 180) 24))
    
13.   (setq d (polar a (/ (* pi 266.41) 180) 24))
    
14.   (command "line" a c "")
    
15.   (command "line" a d "")
    
16.   (command "_bhatch" "p" "solid"  (polar a (/ (* pi 3) 2) 20)  "")
    
17.   (command "osnap" "mid,cen,end,per,int,qua,nod,tan,nea,ins")
    
18.   (prin1)
    
19. )
    
20. 
    

(defun c:zbz (/ r a b c d e )<br />   (setvar "cmdecho" 0)<br />     (command "osnap" "none")<br /> (setq a (getpoint "\n输入一点:"))<br />   (if (not (tblsearch "layer" "指北针")) <br /> (command "_layer" "m" "指北针" "" "") <br /> ) <br /> (setq r 24)<br />   (setq b (polar a (/ (* pi 3) 2) r))<br />   (command "circle" "2p" a b "")<br />   (setq c (polar a (/ (* pi 273.59) 180) 24))<br />   (setq d (polar a (/ (* pi 266.41) 180) 24))<br />   (command "line" a c "")<br />   (command "line" a d "")<br />   (command "_bhatch" "p" "solid"  (polar a (/ (* pi 3) 2) 20)  "") <br />   (command "osnap" "mid,cen,end,per,int,qua,nod,tan,nea,ins")<br />   (prin1)<br /> )<br /> <br />

找到了一个指北针程序，想增加以下内容
1、该程序为初级程序，希望帮助完善一下
2、该程序指北针为1:1大小，能否根据输入的比例系数，自动绘制相应的指北针

xiabin68

下来看一下，

xyz2009xyz

做个块不挺快的嘛

ZZXXQQ

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

夺天工