xinliu93 发表于 2015-5-21 14:30:36

求大神指教，怎么把getdist作为点输入。

(DEFUN C:ACFUN()
(setq b (getpoint "请输入点："))
(setq a (GETDIST b "请输入下一个点："))

(command "drawgcd" "1" b (+ 10 a) esc)
)


*
新手，这是一个在南方CASS里的LISP.
怎么把红色的点b换成a?
a作为一个数值，但我选了他作为一个点，怎么把a作为点输入。

自贡黄明儒 发表于 2015-5-21 15:12:01

(setq b (getpoint a "下一点："))也有下拉线

fan_zh 发表于 2015-5-21 14:45:07

(DEFUN C:ACFUN()
(setq a (getpoint "请输入点："))
(setq b (getpoint "下一点："))
(setq c (distance a b))
; (setq b (GETDIST a "请输入下一个点："))

(command "drawgcd" "1" b (+ 10 c) esc)
)

xinliu93 发表于 2015-5-21 14:57:35

fan_zh 发表于 2015-5-21 14:45 static/image/common/back.gif
(DEFUN C:ACFUN()
(setq a (getpoint "请输入点："))
(setq b (getpoint "下一点："))


膜拜大神，不过我一开始用的getdist能有一条下拉的线能确保第二点跟第一个点是垂足

xinliu93 发表于 2015-5-21 15:17:12

本帖最后由 xinliu93 于 2015-5-21 15:20 编辑

自贡黄明儒 发表于 2015-5-21 15:12 static/image/common/back.gif
(setq b (getpoint a "下一点："))也有下拉线
没有下拉线。。。我用的是04cad
是不是版本太低的原因？

xinliu93 发表于 2015-5-21 15:29:32

自贡黄明儒 发表于 2015-5-21 15:12 static/image/common/back.gif
(setq b (getpoint a "下一点："))也有下拉线

刚逗比了，没看清楚你的内容就回复了，现在加了个a进去，果然有用，给力。

17390539330 发表于 2022-8-23 11:32:06

自贡黄明儒 发表于 2015-5-21 15:12
(setq b (getpoint a "下一点："))也有下拉线

大佬牛皮
页: [1]
查看完整版本: 求大神指教，怎么把getdist作为点输入。