源码分享 圆柱平面绘制

雨的节奏

2. (defun c:yz (/ pt1 rad1 nn1 hh1 ang ang1 ang2 ptx pty pt3 pt4 en1 en2 en3 en4)
   
3.   (setvar "cmdecho" 0)
   
4.   (setq os (getvar "osmode"))
   
5.   (setvar "osmode" 0)
   
6. 
   
7.   (setq pt1 (getpoint "\n指定圆柱圆心"))
   
8.   (setq rad1 (getdist pt1 "\n指定圆柱半径"))
   
9.   (if rad1 (setq rad rad1))
   
10.   (setq nn1 (getint "\n等分数量:2，3，4"))
    
11.   (if nn1 (setq nn nn1))
    
12.   (setq hh1 (getdist "\n输入边厚"))
    
13.   (if hh1 (setq hh hh1))
    
14.   (setq ang (/ (/ (* pi 2) nn) 2))
    
15.   (setq ang1 (- (/ pi 2) ang))
    
16.   (setq ang2 (+ (/ pi 2) ang))
    
17.   (setq ptx (polar pt1 ang1 rad))
    
18.   (setq pty (polar pt1 ang2 rad))
    
19.   (command "arc" ptx "e" pty "r" rad)
    
20.   (setq en1 (entlast))
    
21.   (setq pt3 (polar pt1 ang1 (- rad hh)))
    
22.   (setq pt4 (polar pt1 ang2 (- rad hh)))
    
23.   (command "arc" pt3 "e" pt4 "r" rad)
    
24.   (setq en2 (entlast))
    
25.   (command "line" ptx pt3 "")
    
26.   (setq en3 (entlast))
    
27.   (command "line" pty pt4 "")
    
28.   (setq en4 (entlast))
    
29.   (command "array" en1 en2 en3 en4 "" "p" pt1 nn 360 "")
    
30.   (setvar "osmode" os)
    
31.   (princ "\n完成绘图")
    
32.   (prin1)
    
33. )
    

(defun c:yz (/ pt1 rad1 nn1 hh1 ang ang1 ang2 ptx pty pt3 pt4 en1 en2 en3 en4)<br />   (setvar "cmdecho" 0)<br />   (setq os (getvar "osmode"))<br />   (setvar "osmode" 0)<br /> <br />   (setq pt1 (getpoint "\n指定圆柱圆心"))<br />   (setq rad1 (getdist pt1 "\n指定圆柱半径"))<br />   (if rad1 (setq rad rad1))<br />   (setq nn1 (getint "\n等分数量:2，3，4"))<br />   (if nn1 (setq nn nn1))<br />   (setq hh1 (getdist "\n输入边厚"))<br />   (if hh1 (setq hh hh1))<br />   (setq ang (/ (/ (* pi 2) nn) 2))<br />   (setq ang1 (- (/ pi 2) ang))<br />   (setq ang2 (+ (/ pi 2) ang))<br />   (setq ptx (polar pt1 ang1 rad))<br />   (setq pty (polar pt1 ang2 rad))<br />   (command "arc" ptx "e" pty "r" rad)<br />   (setq en1 (entlast))<br />   (setq pt3 (polar pt1 ang1 (- rad hh)))<br />   (setq pt4 (polar pt1 ang2 (- rad hh)))<br />   (command "arc" pt3 "e" pt4 "r" rad)<br />   (setq en2 (entlast))<br />   (command "line" ptx pt3 "")<br />   (setq en3 (entlast))<br />   (command "line" pty pt4 "")<br />   (setq en4 (entlast))<br />   (command "array" en1 en2 en3 en4 "" "p" pt1 nn 360 "")<br />   (setvar "osmode" os)<br />   (princ "\n完成绘图")<br />   (prin1)<br /> )<br />

多年前的拙劣作品
应该是学lisp两个月左右写的
有用的朋友拿去