求高手在这个程序上加在标注

xiongqunan · 发表于 2013-9-22 11:54:04

zxq0220 发表于 2013-9-19 00:04

兄弟你这个程序还能不能再帮我改改呀！好象马上就能达到我的理想状态了……。

st788796 · 发表于 2013-9-22 13:24:57

楼主说的对齐就是侧视图"立着"？

xiongqunan · 发表于 2013-9-22 13:43:12

st788796 发表于 2013-9-22 13:24
楼主说的对齐就是侧视图"立着"？

yi 就是普通三视图（第三角视图画法）的画法一样吗！左视图肯定是横着的。

Free-Lancer · 发表于 2013-9-22 15:16:27

xiongqunan 发表于 2013-9-22 13:43
yi 就是普通三视图（第三角视图画法）的画法一样吗！左视图肯定是横着的。

调整下 vy h 位置即可

(defun c:tt
(/ e box brp h lyr maxx maxy minx miny p pi2 ulp vx vy _pi2)
(defun drawpl (p1 p2 h / p3 p4 pl)
(setq p3 (polar p2 _pi2 h)
p4 (polar p1 _pi2 h)
)
(setq pl (xdrx_polyline_make p1 p2 p3 p4 t))
(xdrx_entity_setlayer pl lyr)
(xdrx_dimension_makerotate p1 p4 (polar p1 pi 10.) _pi2)
(xdrx_dimension_makerotate p3 p4 (polar p3 _pi2 10.))
)
(setvar "dimzin" 0)
(if (not **GlobleThick**)
(setq **GlobleThick** 20.)
)
(while
(and (setq e (xdrx_entsel "\nPick pline: "))
(progn
(setq
H (getdist
(cadr e)
(strcat "\nThickness<" (rtos **GlobleThick** 2 2) ">: ")
)
)
(if h
(setq **GlobleThick** h)
(setq h **GlobleThick**)
)
)
(setq p (getpoint "\nBase point: "))
(not (zerop h))
)
(setq _pi2 (/ pi 2)
box (xdrx_entity_box (car e))
lyr (xdrx_getentdxf 8)
minx (caar box)
maxx (caadr box)
miny (cadadr box)
maxy (cadr (last box))
ulp (list minx maxy)
brp (list maxx miny)
vx (- maxx minx)
vy (- maxy miny)
)
(if (not (xdrx_object_getxrecord (car e) "BoxDimed"))
(progn
(xdrx_dimension_makerotate
(last box)
(caddr box)
(polar (caddr box) _pi2 10.)
)
(xdrx_dimension_makerotate
(car box)
(cadddr box)
(polar (car box) pi 10.)
_pi2
)
(xdrx_object_setxrecord (car e) "BoxDimed" 1)
)
)
(cond
((and (>= (cadr p) maxy)
(or (<= minx (car p) maxx)
(and (<= (car p) minx)
(<= (angle ulp p) (/ pi 0.75))
)
(and (>= (car p) maxx)
(>= (angle (cadr box) p) (/ pi 4))
)
)
) ;_up
(drawpl (polar (last box) _pi2 30.)
(polar (caddr box) _pi2 30.)
h
)
)
((and (<= (cadr p) miny)
(or (<= minx (car p) maxx)
(and (<= (car p) minx)
(>= (angle (car box) p) (* pi 1.25))
)
(and (>= (car p) maxx) (<= (angle brp p) (/ pi 4)))
)
) ;_ down
(drawpl (polar (car box) (- _pi2) (+ h 30.))
(polar (cadr box) (- _pi2) (+ h 30.))
h
)
)
((and
(<= (car p) minx)
(or (and (>= (cadr p) maxy) (> (angle ulp p) (/ pi 0.75)))
(and (<= (cadr p) miny) (< (angle (car box) p) (* 1.25 pi)))
(<= miny (cadr p) maxy)
)
) ;_left
(drawpl (polar (car box) pi (+ h 45.))
(polar (car box) pi 45.)
vy
)
)
(t
(drawpl (polar (cadr box) 0. 45.)
(polar (cadr box) 0. (+ 45. h))
vy
) ;_right
)
)
)
(princ)
)

(defun c:tt 
       (/ e box brp h lyr maxx maxy minx miny p pi2 ulp vx vy _pi2) 
  (defun drawpl    (p1 p2 h / p3 p4 pl) 
    (setq p3 (polar p2 _pi2 h) 
      p4 (polar p1 _pi2 h) 
    ) 
    (setq pl (xdrx_polyline_make p1 p2 p3 p4 t)) 
    (xdrx_entity_setlayer pl lyr) 
    (xdrx_dimension_makerotate p1 p4 (polar p1 pi 10.) _pi2) 
    (xdrx_dimension_makerotate p3 p4 (polar p3 _pi2 10.)) 
  ) 
  (setvar "dimzin" 0) 
  (if (not **GlobleThick**) 
    (setq **GlobleThick** 20.) 
  ) 
  (while 
    (and (setq e (xdrx_entsel "\nPick pline: ")) 
     (progn 
       (setq 
         H (getdist 
         (cadr e) 
         (strcat "\nThickness<" (rtos **GlobleThick** 2 2) ">: ") 
           ) 
       ) 
       (if h 
         (setq **GlobleThick** h) 
         (setq h **GlobleThick**) 
       ) 
     ) 
     (setq p (getpoint "\nBase point: ")) 
     (not (zerop h)) 
    ) 
     (setq _pi2    (/ pi 2) 
       box    (xdrx_entity_box (car e)) 
       lyr    (xdrx_getentdxf 8) 
       minx    (caar box) 
       maxx    (caadr box) 
       miny    (cadadr box) 
       maxy    (cadr (last box)) 
       ulp    (list minx maxy) 
       brp    (list maxx miny) 
       vx    (- maxx minx) 
       vy    (- maxy miny) 
     ) 
     (if (not (xdrx_object_getxrecord (car e) "BoxDimed")) 
       (progn 
     (xdrx_dimension_makerotate 
       (last box) 
       (caddr box) 
       (polar (caddr box) _pi2 10.) 
     ) 
     (xdrx_dimension_makerotate 
       (car box) 
       (cadddr box) 
       (polar (car box) pi 10.) 
       _pi2 
     ) 
     (xdrx_object_setxrecord (car e) "BoxDimed" 1) 
       ) 
     ) 
     (cond 
       ((and (>= (cadr p) maxy) 
         (or (<= minx (car p) maxx) 
         (and (<= (car p) minx) 
              (<= (angle ulp p) (/ pi 0.75)) 
         ) 
         (and (>= (car p) maxx) 
              (>= (angle (cadr box) p) (/ pi 4)) 
         ) 
         ) 
    ) ;_up 
    (drawpl    (polar (last box) _pi2 30.) 
        (polar (caddr box) _pi2 30.) 
        h 
    ) 
       ) 
       ((and (<= (cadr p) miny) 
         (or (<= minx (car p) maxx) 
         (and (<= (car p) minx) 
              (>= (angle (car box) p) (* pi 1.25)) 
         ) 
         (and (>= (car p) maxx) (<= (angle brp p) (/ pi 4))) 
         ) 
    ) ;_ down 
    (drawpl    (polar (car box) (- _pi2) (+ h 30.)) 
        (polar (cadr box) (- _pi2) (+ h 30.)) 
        h 
    ) 
       ) 
       ((and 
      (<= (car p) minx) 
      (or (and (>= (cadr p) maxy) (> (angle ulp p) (/ pi 0.75))) 
          (and (<= (cadr p) miny) (< (angle (car box) p) (* 1.25 pi))) 
          (<= miny (cadr p) maxy) 
      ) 
    ) ;_left 
    (drawpl    (polar (car box) pi (+ h 45.)) 
        (polar (car box) pi 45.) 
        vy 
    ) 
       ) 
       (t 
    (drawpl    (polar (cadr box) 0. 45.) 
        (polar (cadr box) 0. (+ 45. h)) 
        vy 
    ) ;_right 
       ) 
     ) 
  ) 
  (princ) 
)

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

[公告] 求高手在这个程序上加在标注

点评

点评