长圆孔LSP，求改

琴剑江山_10184

皇上快溜 发表于 2016-6-19 13:50
你好，我这个小lsp想请你改一下。在9楼
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=172551

1. (defun c:yk (/ ANG GEE IS POL PTCEN RR)
   
2.   (setq ptcen (getpoint "\n输入圆心:"))
   
3.   (setq rr (getdist ptcen "\n指定半径<默认：1>："))
   
4.   (if (null rr)
   
5.     (setq rr 1.0)
   
6.   )
   
7.   (command "circle" "non" ptcen rr)
   
8.   (or (setq is (getdist "\n输入移动距离 <5>:")) (setq is 5))
   
9.   (while (= (car (setq gee (grread nil 1 0))) 5)
   
10.     (redraw)
    
11.     (setq gee (cadr gee))
    
12.     (setq ang (angle ptcen gee))
    
13.     (grdraw ptcen gee 1)
    
14.   )
    
15.   (setq pol (polar ptcen ang is))
    
16.   (command "move" (entlast) "" ptcen pol)
    
17.   (redraw)
    
18.   (princ)
    
19. )

(defun c:yk (/ ANG GEE IS POL PTCEN RR)<br />   (setq ptcen (getpoint "\n输入圆心:"))<br />   (setq rr (getdist ptcen "\n指定半径<默认：1>："))<br />   (if (null rr)<br />     (setq rr 1.0)<br />   )<br />   (command "circle" "non" ptcen rr)<br />   (or (setq is (getdist "\n输入移动距离 <5>:")) (setq is 5))<br />   (while (= (car (setq gee (grread nil 1 0))) 5)<br />     (redraw)<br />     (setq gee (cadr gee))<br />     (setq ang (angle ptcen gee))<br />     (grdraw ptcen gee 1)<br />   )<br />   (setq pol (polar ptcen ang is))<br />   (command "move" (entlast) "" ptcen pol)<br />   (redraw)<br />   (princ)<br /> )

皇上快溜

琴剑江山_10184 发表于 2016-6-20 11:33

谢谢你，，，，，，，，，，

皇上快溜

Andyhon 发表于 2016-6-17 22:37

你好，想在你这个程序 (setq r (getdist "\n半径<3>:"))后面加句(if (= r nil) (setq r 3))没成功，请问错在哪里？
另外，请问 getreal 与 getdist 有什么区别？如何给getdist赋予一个默认并且可人工输入的缺省数值？谢谢

Andyhon

用 琴剑江山_10184 的开头语句
or
ref: http://bbs.mjtd.com/thread-172545-1-1.html

or
搜寻 自定义函数 uReal or uDist 及其使用范例

Qwer1243

琴剑江山_10184 发表于 2016-6-18 09:51

第三行是不是有点问题，运行一直是r为5。(or (setq r (getdist "\n半径 <5>:")) (setq r 5))改成这样可以传递r值

zhangrunze

蛮不错的 感谢分享~
学习了~