[求助]：我这个程序为什么运行不了啊?

hlyzcs · 发表于 2007-5-8 08:54:56

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

我想画个管道,做了下面这个程序,但是加载到CAD里不出结果
(defun c:guandao()
(setq a(getdist"\n 请输入起点:"))
(setq b(getdist"\n 请输入终点:"))
(setq r(getdist"\n 请输入半径:"))
(setq m(pld(a,b,r)))
(setq n(pld(b,a,r)))
(setq p(pld(a,b,-r)))
(setq q(pld(b,a,-r)))
(command".line"m n"")
(command".line"p q"")
)

各位高手帮帮忙,看怎么能实现啊?
或者还与别的方法么?
急求中!!!救命啊

adisonmaster · 发表于 2007-5-8 10:37:12

pld函数返回的数据是什么？

hlyzcs · 发表于 2007-5-9 07:42:11

pld函数是通过点P1与P2参考距离DICT计算直线上的一个点.
如果不通过这个函数,哪位达人知道怎么实现画管道的程序啊??急求

byghbcaixin · 发表于 2007-5-9 08:43:05

(defun c:guandao (/ pld a b r m n p q)
  (defun pld (a b r / ang)
(setq ang (+ (angle a b) (/ pi 2.0)))
(polar a ang r)
  )
  (setq a (getpoint "\n请输入起点:"))
  (setq b (getpoint a "\n请输入终点:"))
  (setq ang (angle a b))
  (setvar 'snapang ang)
  (setvar 'ORTHOMODE 1)
  (command ".line" a b "")
  (setq r (getdist b "\n请输入半径:"))
  (setq m (pld a b r))
  (setq n (pld b a (- r)))
  (setq p (pld a b (- r)))
  (setq q (pld b a r))
  (command ".line" m n "")
  (command ".line" p q "")
  (setvar 'snapang 0)
  (setvar 'ORTHOMODE 0)
)

hlyzcs · 发表于 2007-5-9 08:46:59

谢谢 !!非常感谢!
不过试了一下,结果运行不出来,输入起点终点半径之后就完了不出图!

adisonmaster · 发表于 2007-5-9 12:25:50

4楼的程序试过了，可以使用，是不是hlyzcs你的系统有些问题呢？

hlyzcs · 发表于 2007-5-10 08:01:14

谢谢4楼了!!

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

[求助] [求助]：我这个程序为什么运行不了啊?

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子