求大神帮忙写一个画线的小程序
如图画输入tt画一条线，程序在所画的线中点位置生成x和y方向的两条长度为2000的线 本帖最后由 张大锤 于 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: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
张大锤 发表于 2018-6-25 17:07
(defun c:tt ()
(setvar "osmode" 0)
(setq p1 (getpoint ))
运行你这个程序为什么把捕捉会关了 664571221 发表于 2018-6-26 15:47
运行你这个程序为什么把捕捉会关了
(setvar "osmode" 0) 这句话是关闭 可以删
页:
[1]