[编程申请]："跑道形状" 画图命令

lsjjm

可惜也! RAX看不到,  那么多的 xd_, xdrx_??

陌生人

rax是什么？

hxp103312

太感谢你们了

lsjjm

TO: 陌生人和AEO斑主:
开始我曾想, 达到预定目的可走两条路: 一是模仿画椭圆, 二是画矩形再倒角. 画矩形再倒角是最方便不过了, 但是倒角值事先不知道, 因此先考虑从画椭圆入手...
本想抛转引玉, 征求你们的高见. 可由于下载不了pdvp.rar和xd_文件, 只好自己琢磨, 现将我的程序码贴出, 请指正:

"跑道形状"画图程序--可能还有些BUG
(defun c:test ()
  (vl-load-com)
  (setq p0 (getpoint "\nStart Point: "))
  (vl-cmdf "ellipse" p0 (getpoint p0 "\nEnd Point: ") pause)
  (setq ent (entlast))
  (setq obj (vlax-ename->vla-object ent))
  (setq p1  (vlax-curve-getstartpoint obj))
  (setq p2  (vlax-curve-getPointatParam obj pi))
  (setq r (* 0.5 (vla-get-RadiusRatio obj)(distance p1 p2)))
  (vl-cmdf "ucs" "n" "3" p1 p2 (polar p1 (+ (angle p1 p2)(/ pi 2)) 1) "")
  (setq q1 (trans p1 0 1)
        q2 (trans p2 0 1))
  (vl-cmdf "erase" ent "")
  (vl-cmdf "rectang" "f" r (polar q1 (/ pi 2) r)(polar q2 (* 1.5 pi) r))
  (vl-cmdf "ucs" "w" "")
)

无痕

我认为楼上 通过调用ellpse来得到点位，和过多调用cad命令ucs不是很可取，另外最好不用pause.

aeo

最初由 lsjjm 发布
[B]TO: 陌生人和AEO斑主:
开始我曾想, 达到预定目的可走两条路: 一是模仿画椭圆, 二是画矩形再倒角. 画矩形再倒角是最方便不过了, 但是倒角值事先不知道, 因此先考虑从画椭圆入手...
本想抛转引玉, 征求你们的高见. ... [/B]

你晓东工具箱都没装?

或者加载xd_api,有下的呀，在下载中心.
用纯lisp也很容易，但既然已经有了api,再写，不是重复劳动吗!

lsjjm

to 无痕: 有何高见请示?
to  aeo:  没装晓东工具箱. 我需要的是可单du运行的程序.