Entmake构造线(射线)

自贡黄明儒 · 发表于 2014-4-7 20:36:11

;;[功能] X轴(Y轴)构造线
;;Flag T时,在X轴线上产生射线
;;示例 (EntmakeXline (getpoint) "X")产生平行X轴的射线
(defun EntmakeXline (pt Flag / P1)
  (if Flag
(setq p1 '(1 0 0))
(setq p1 '(0 1 0))
  )
  (entmakeX (list '(0 . "XLINE")
   '(100 . "AcDbEntity")
   '(100 . "AcDbXline")
   (cons 10 pt)
   (cons 11 p1)
      )
  )
)

m809289064j · 发表于 2017-12-31 09:42:38

谢谢楼主，借来学习了

sdls · 发表于 2019-2-15 22:21:34

过来学习一下

Q1241274614 · 发表于 2014-4-7 20:37:33

flyfox1047 · 发表于 2014-4-7 20:40:02

老黄，又批量发代码啦

杜阳 · 发表于 2014-4-7 20:58:17

lostbalance · 发表于 2014-4-7 22:13:32

这两天楼主很高产吗

品茗新秀 · 发表于 2014-4-7 22:18:58

批量发代码啦

ysq101 · 发表于 2014-4-7 23:22:40

黄大师心血来潮就井喷了

q3_2006 · 发表于 2014-4-8 06:43:21

这个似乎也发过呀...

yoyoho · 发表于 2014-4-8 07:15:44

感谢黄老师分享程序!

depgfdepgf · 发表于 2014-4-8 07:45:17

正需要这个..谢谢了

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

[源码] Entmake构造线(射线)

点评

本帖被以下淘专辑推荐: