(defun q:vec:*c (v a) (mapcar '(lambda (x) (* x a)) v))
;;;;Normalize a vec
(defun q:vec:Norm (v / l)
(if (not (zerop (setq l (distance '(0 0 0) v))))
(mapcar '(lambda (x) (/ x l)) v)
)
)
;;entmake line
(defun q:entmake:line (pt1 pt2 layer)
(entmake (list (cons 0 "LINE")
(cons 6 "BYLAYER")
(cons 8 layer)
(cons 10 pt1)
(cons 11 pt2)
(cons 39 0.0)
(cons 62 256)
(cons 210 (list 0.0 0.0 1.0))
)
)
)
;;;无聊之作,空间管道的连接,基于chenjun_nj兄的计算公式
;;;http://bbs.mjtd.com/thread-188072-1-1.html
;;;by qjchen
;;;功能:选择X向直线和Y向直线,进行绘制,目前只能是对两根连接管正交的情况,没有考虑斜向的情况
;;;没有做其他代码优化,程序变量、UNDO之类的优化
(defun c:test ( / a b c disa2 disd2 entla entlap1 entlap2 entld entldp1 entldp2 la ld pointa pointa1 pointa2 pointd pointd1 pointd2 r ss1 ss2 ss3 vecaa1 vecad vecdd1 vv x xi y yi)