求大神帮忙写一个画线的小程序

664571221 · 发表于 2018-6-24 16:49:53

如图画输入tt画一条线，程序在所画的线中点位置生成x和y方向的两条长度为2000的线

张大锤 · 发表于 2018-6-25 17:07:27

本帖最后由张大锤于 2018-6-25 17:10 编辑

(defun c:tt ()
(setvar "osmode" 0)
(setq p1 (getpoint ))
(setq p2 (getpoint p1))
(setq p3(polar p1 (angle p1 p2) (/ (distance p1 p2) 2)))
(command "line" p1 p2 "")
(setq pA (poLar p3 (* 1 pi) 2000))
(setq pB (poLar p3 (* 0 pi) 2000))
(setq pC (poLar p3 (* 0.5 pi) 2000))
(setq pD (poLar p3 (* 1.5 pi) 2000))
(command "line" pA pB "")
(command "line" pC pD "")
(princ)
)

ysq101 · 发表于 2018-6-25 22:48:00

本帖最后由 ysq101 于 2018-6-25 22:50 编辑

张大锤发表于 2018-6-25 17:07
(defun c:tt ()
(setvar "osmode" 0)
(setq p1 (getpoint ))

好学哥... 你应该学如何用MAKE来生成LINE了

不要总是用COMMAND
传送门在此http://bbs.mjtd.com/thread-109759-1-1.html

664571221 · 发表于 2018-6-26 15:47:38

张大锤发表于 2018-6-25 17:07
(defun c:tt ()
(setvar "osmode" 0)
(setq p1 (getpoint ))

运行你这个程序为什么把捕捉会关了

张大锤 · 发表于 2018-6-26 16:13:27

664571221 发表于 2018-6-26 15:47
运行你这个程序为什么把捕捉会关了

(setvar "osmode" 0) 这句话是关闭可以删

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

[提问] 求大神帮忙写一个画线的小程序

本帖子中包含更多资源