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

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

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

皇上快溜 发表于 2016-6-20 14:47:09

琴剑江山_10184 发表于 2016-6-20 11:33 static/image/common/back.gif


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

皇上快溜 发表于 2016-7-29 18:16:24

Andyhon 发表于 2016-6-17 22:37 static/image/common/back.gif


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

Andyhon 发表于 2016-7-30 08:50:04

本帖最后由 Andyhon 于 2016-7-30 08:51 编辑

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

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

Qwer1243 发表于 2022-4-19 16:55:20

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


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

zhangrunze 发表于 2024-4-25 17:16:06

蛮不错的 感谢分享~
学习了~
页: 1 [2]
查看完整版本: 长圆孔LSP，求改