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

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

(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

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

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

(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

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

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

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

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

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

没有下拉线。。。我用的是04cad
是不是版本太低的原因？

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

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

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

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

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

大佬牛皮

账号		自动登录	找回密码
密码			注册

[已解答] 求大神指教，怎么把getdist作为点输入。

评分

评分

本帖子中包含更多资源