|
|
小弟有一作业,情况是这样的:
在任意直线上得一点,再得不在这一直线上的点作为方向,然后画表面粗糙度.
小弟参考了上次网友 chg 在 "用(ssget )可以做到" 一文中的办法
想半天,做不出,ssget实体选择实在有点过不去
请各位帮忙挑错,感谢感谢...
(defun c:t2(/ p1 p2 p3 p4 p5 p6 p7 p8 ang ang1 k ename ss)
(setq p1 (getpoint "\n input p1"))
(setq p5 (getpoint "\n input p2"))
(setq k (getdist "\n input k"))
(setq ss (ssget p1))
(setq ename (ssname ss 0))
(setq p2 (cdr (assoc 10 (entget ename))))
(setq p3 (cdr (assoc 11 (entget ename))))
(setq ang (angle p2 p3))
(setq ang1 (angle p1 p5))
(cond
((> (- ang1 pi) ang)
(setq p6 (polar p1 (- ang (/ pi 3)) (* 10 k)))
(setq p7 (polar p1 (- ang (* (/ pi 3) 2) (* 10 k))))
(setq p8 (polar p1 (- ang (* (/ pi 3) 2) (* 20 K)))))
((and (> ang1 ang) ( ang1 0) ( (- ang1 pi) ang)
(setq p6 (polar p1 (- ang (/ pi 3)) (* 10 k)))
(setq p7 (polar p1 (- ang (* (/ pi 3) 2)) (* 10 k)))
(setq p8 (polar p1 (- ang (* (/ pi 3) 2)) (* 20 K)))
)
((and (> ang1 ang) ( ang1 0) ( (- ANG1 pi) ANG)
(setq P6 (polar P1 (- ANG (/ pi 3)) (* 10 K)))
(setq P7 (polar P1 (- ANG (* (/ pi 3) 2)) (* 10 K)))
(setq P8 (polar P1 (- ANG (* (/ pi 3) 2)) (* 20 K)))
)
((and (> ANG1 ANG) ( ANG1 0) (< ANG1 ANG))
(setq P6 (polar P1 (- ANG (/ pi 3)) (* 10 K)))
(setq P7 (polar P1 (- ANG (* (/ pi 3) 2)) (* 10 K)))
(setq P8 (polar P1 (- ANG (* (/ pi 3) 2)) (* 20 K)))
)
)
(command "pline" P7 P6 P1 P8 "")
(setvar "osmode" HOLDOSMODE)
(princ)
) |
|
置顶卡
