[讨论]：[0519]如何将此倾斜矩形绘制程序简化?

vken7az2p

[讨论]：[0519]如何将此倾斜矩形绘制程序简化?

小弟练习将绘制矩形可以使用倾斜角度方式绘出,
但个人认为程序应该可以简化,
因此放上来请各位高手指点
烦请各位可以提供宝贵的意见~
谢谢~

(defun c:test ()
(setq pt1 (getpoint "\n 长度方向基点:") )
(setq pt2 (getpoint pt1 "\n 长度方向终点:") )
(setq pt3 (getpoint pt2 "\n 宽度方向:") )
(setq ofs (getdist pt2 "\n 宽度距离:") )
(command "_.line" pt1 pt2 "")
(setq en1 (entlast))
(setq ob1 (entget en1))
(command "_.offset" ofs en1 pt3 "" )
(setq en2 (entlast))
(setq ob2 (entget en2))
(command "_.line" (cdr (assoc 10 ob1))  (cdr (assoc 10 ob2) ) "")
(setq en3 (entlast))
(command "_.line" (cdr (assoc 11 ob1))  (cdr (assoc 11 ob2) ) "")
(setq en4 (entlast))

(setq ss (ssadd))
(ssadd en1 ss)
(ssadd en2 ss)
(ssadd en3 ss)
(ssadd en4 ss)
(setq i 0)

  (while (< i (sslength ss))
    (setq ssa-ent (ssname ss i))
    (setq ent-p (cdr (assoc 0 (entget ssa-ent))))
    (if (not (null ent-p))  ;判断原图元是否已串入多义线
      (if (or (= ent-p "LWPOLYLINE") (= ent-p "POLYLINE"))
     ;判断原图元属性
 (command "pedit" ssa-ent "j" ss "" "")
 (command "pedit" ssa-ent "y" "j" ss "" "")
      )
    )
    (setq i (1+ i))
  )
)

xxsheng

vken7az2p发表于2006-5-19 18:37:00回复：（vken7az2p）：如何将此倾斜矩形绘制程序简化? ：如何将此倾斜矩形绘制程序简化? 小弟练习将绘制矩形可以使用倾斜角度方式绘出,但个人认为程序应该可以简化,因此放上

第一个问题,,,程序名c;box,,,你使用过没有?

vken7az2p

谢谢 xxsheng 兄的指教

立刻改进~

ZZXXQQ

3. (defun c:test ()
4. (setq pt1 (getpoint "\n 长度方向基点:"))
5. (setq pt2 (getpoint pt1 "\n 长度方向终点:"))
6. (setq pt3 (getdist pt2 "\n 宽度尺寸:"))
7. (setq pt4 (polar pt2 (+ (angle pt1 pt2) (/ pi 2)) pt3))
8. (setq pt5 (polar pt1 (+ (angle pt1 pt2) (/ pi 2)) pt3))
9. (command "pline" pt1 pt2 pt4 pt5 "c")
10. (princ)
11. )

(defun c:test () (setq pt1 (getpoint "\n 长度方向基点:")) (setq pt2 (getpoint pt1 "\n 长度方向终点:")) (setq pt3 (getdist pt2 "\n 宽度尺寸:")) (setq pt4 (polar pt2 (+ (angle pt1 pt2) (/ pi 2)) pt3)) (setq pt5 (polar pt1 (+ (angle pt1 pt2) (/ pi 2)) pt3)) (command "pline" pt1 pt2 pt4 pt5 "c") (princ) )

jxphklibin

改成根据对角点坐标绘制倾斜矩形更好

lijiao

只要用的时候感觉舒服就是好程序

akklla

小弟跟着学习了，多谢各位！