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

xiongqunan · 发表于 2013-9-13 18:50:30

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

我现在有个能画侧示图的LSP，但画出来的侧示图没有高度标注，求高手帮忙在此程序上加在高度标注代码，先谢过了。

xiongqunan · 发表于 2013-9-13 20:20:57

不好意思！刚才图片看不清，重新传一下

st788796 · 发表于 2013-9-14 09:51:59

还是 BoundingBox

xiongqunan · 发表于 2013-9-14 11:01:39

st788796 发表于 2013-9-14 09:51
还是 BoundingBox

我是新手！刚接触这方面的，暂时还看不懂！也不知道怎么加！可是现在经常会用到，请求会加的帮忙加上一下好吗？

newer · 发表于 2013-9-14 12:31:43

xiongqunan 发表于 2013-9-14 11:01
我是新手！刚接触这方面的，暂时还看不懂！也不知道怎么加！可是现在经常会用到，请求会加的帮忙加上一 ...

看了程序，里面很多自定义函数，没法帮你调试，修改别人的程序还不如重新写一个，你详细说下你的要求。

炫翔 · 发表于 2013-9-14 14:06:39

如果只是这个简单三视图自己写个即可

xiongqunan · 发表于 2013-9-14 22:04:50

newer 发表于 2013-9-14 12:31
看了程序，里面很多自定义函数，没法帮你调试，修改别人的程序还不如重新写一个，你详细说下你的要求。

那你能帮我写一个吗？
要求不是根据一个封闭的线框自动根据输入一个高度生存侧视图或府视图，并把主视图的外形尺寸和侧视图的高度尺寸标出来。

st788796 · 发表于 2013-9-14 23:22:51

看了看程序，就是画个矩形，侧视图没有这么简单吧

xiongqunan · 发表于 2013-9-15 16:35:08

st788796 发表于 2013-9-14 23:22
看了看程序，就是画个矩形，侧视图没有这么简单吧

我们这里出的侧示图只需要标明高度就可以了。当然主视图里面还是有很多内容的。里面的内容侧示图不需要表达出来。

zxq0220 · 发表于 2013-9-16 08:19:51

本帖最后由 zxq0220 于 2013-9-18 08:10 编辑

;绘制零件侧视图
(defun c:cs1 (/ pts pt1 pt2 pt1x pt1y pt2x pt2y hh pp1 pp2 enlay lay)
(initget 1)
(setq PT1 (getpoint "\n请点选一点: "))
(initget 1)
(setq PT2 (getpoint pt1 "\n请点选第二点: "))
(command "line" pt1 pt2 "")
(if (not (tblsearch "LAYER" "DIM"))
(command "-LAYER" "N" "DIM" "C" 2 "DIM" "")
)
(setq ee (entlast))
(if ee (progn
(setq pts (jx_Getboundingbox ee)
pt1 (trans (car pts) 0 1)
pt1x (car pt1)
pt1y (cadr pt1)
pt2 (trans (cadr pts) 0 1)
pt2x (car pt2)
pt2y (cadr pt2)
enlay (jx_dxf 8 ee))
(entdel ee)
(setq ss(ssget pt1))
(if ss
(setq enlay (jx_dxf 8(ssname ss 0)))
(progn
(command "_RECTANG" pt1 pt2)
(setq enlay (getvar "CLAYER"))
))
(initget 33)
(setq pbase (getpoint (jx_mid_pt pt1 pt2) "\n起始点: ")
pbasex (car pbase)
pbasey (cadr pbase))
(cond
((and (> pbasex pt1x) (< pbasex pt2x) (< pbasey pt1y)) ;下
(setq a 1 tt nil)
)
((and (> pbasex pt1x) (< pbasex pt2x) (> pbasey pt2y)) ;上
(setq a 2 tt nil)
)
((and (> pbasey pt1y) (< pbasey pt2y) (> pbasex pt2x)) ;右
(setq a 3 tt nil)
)
((and (> pbasey pt1y) (< pbasey pt2y) (< pbasex pt1x)) ;左
(setq a 4 tt nil)
)
)
(if
(not (setq tt (vlax-ldata-get "pdd" "thick")))
(setq tt (vlax-ldata-put "pdd" "thick" 20))
)
(setq hh (getdist pbase (strcat "\n请指定厚度 <" (rtos tt) ">: ")))
(if (not hh)
(setq hh tt)
(vlax-ldata-put "pdd" "thick" hh)
)
(cond
((= a 1)
(setq pp1 (list pt1x pbasey)
pp2 (list pt2x (- pbasey hh)))
)
((= a 2)
(setq pp1 (list pt1x pbasey)
pp2 (list pt2x (+ pbasey hh)))
)
((= a 3)
(setq pp1 (list pbasex pt1y)
pp2 (list (+ pbasex hh) pt2y))
)
((= a 4)
(setq pp1 (list pbasex pt1y)
pp2 (list (- pbasex hh) pt2y))
)
)
(setq os (getvar "osmode"))
(setvar "cmdecho" 0)
(setvar "osmode" 0)
(command "rectangle" pp1 pp2)
(setq lay(jx_lay_unlock nil))
(command "_chprop" "L" "" "la" enlay "")
(command "DIMLINEAR" (list (car pp1) (cadr pp2) 0) pp2 (polar pp2 (/ pi 2) (* hh 0.1)))
(command "_CHPROP" "L" "" "LA" "DIM" "")
(jx_lay_unlock lay)
(setvar "osmode" os)
))
(princ)
)

;绘制零件侧视图 
(defun c:cs1 (/ pts pt1 pt2 pt1x pt1y pt2x pt2y hh pp1 pp2 enlay lay) 
 (initget 1) 
 (setq PT1 (getpoint "\n请点选一点: ")) 
 (initget 1) 
 (setq PT2 (getpoint pt1 "\n请点选第二点: ")) 
 (command "line" pt1 pt2 "") 
 (if (not (tblsearch "LAYER" "DIM")) 
  (command "-LAYER" "N" "DIM" "C" 2 "DIM" "") 
 ) 
 (setq ee (entlast)) 
 (if ee (progn 
  (setq pts (jx_Getboundingbox  ee) 
        pt1   (trans (car pts) 0 1) 
        pt1x  (car pt1) 
        pt1y  (cadr pt1) 
        pt2   (trans (cadr pts) 0 1) 
        pt2x  (car pt2) 
        pt2y  (cadr pt2) 
        enlay (jx_dxf 8  ee)) 
  (entdel ee) 
  (setq ss(ssget pt1)) 
  (if ss 
   (setq enlay (jx_dxf 8(ssname ss 0))) 
  (progn 
   (command "_RECTANG" pt1 pt2) 
    (setq enlay (getvar "CLAYER")) 
  )) 
  (initget 33) 
  (setq pbase  (getpoint (jx_mid_pt pt1 pt2) "\n起始点: ") 
        pbasex (car pbase) 
        pbasey (cadr pbase)) 
  (cond 
    ((and (> pbasex pt1x) (< pbasex pt2x) (< pbasey pt1y)) ;下 
     (setq a  1 tt nil) 
    ) 
    ((and (> pbasex pt1x) (< pbasex pt2x) (> pbasey pt2y)) ;上 
     (setq a  2 tt nil) 
    ) 
    ((and (> pbasey pt1y) (< pbasey pt2y) (> pbasex pt2x)) ;右 
     (setq a  3 tt nil) 
    ) 
    ((and (> pbasey pt1y) (< pbasey pt2y) (< pbasex pt1x)) ;左 
     (setq a  4 tt nil) 
    ) 
  ) 
  (if 
    (not (setq tt (vlax-ldata-get "pdd" "thick"))) 
     (setq tt (vlax-ldata-put "pdd" "thick" 20)) 
  ) 
  (setq hh (getdist pbase (strcat "\n请指定厚度 <" (rtos tt) ">: "))) 
  (if (not hh) 
    (setq hh tt) 
    (vlax-ldata-put "pdd" "thick" hh) 
  ) 
  (cond 
    ((= a 1) 
     (setq pp1 (list pt1x pbasey) 
           pp2 (list pt2x (- pbasey hh))) 
    ) 
    ((= a 2) 
     (setq pp1 (list pt1x pbasey) 
           pp2 (list pt2x (+ pbasey hh))) 
    ) 
    ((= a 3) 
     (setq pp1 (list pbasex pt1y) 
           pp2 (list (+ pbasex hh) pt2y)) 
    ) 
    ((= a 4) 
     (setq pp1 (list pbasex pt1y) 
           pp2 (list (- pbasex hh) pt2y)) 
    ) 
  ) 
  (setq os (getvar "osmode")) 
  (setvar "cmdecho" 0) 
  (setvar "osmode" 0) 
  (command "rectangle" pp1 pp2) 
  (setq lay(jx_lay_unlock nil)) 
  (command "_chprop" "L" "" "la" enlay "") 
  (command "DIMLINEAR" (list (car pp1) (cadr pp2) 0) pp2 (polar pp2 (/ pi 2) (* hh 0.1))) 
  (command "_CHPROP" "L" "" "LA" "DIM" "") 
  (jx_lay_unlock lay) 
  (setvar "osmode" os) 
 )) 
 (princ) 
)

xiongqunan · 发表于 2013-9-17 09:42:06

zxq0220 发表于 2013-9-16 08:19

高手就是高手！终于可以了，但不有两个问题不知能不能优化一下！
问题点1：标注偏移距离是根据输入的厚度值需偏移的！有时太远了，能否设定为常数？
         2：标注端点在图形的另一端！有点影响外观？
         3：尺寸能否指定到一个图层里面？
         4：主视图外形大小尺寸能否一并加上，这样就可以省去标尺寸的时间了。

zxq0220 · 发表于 2013-9-18 08:11:58

前面改了。再试试。

xiongqunan · 发表于 2013-9-18 08:48:53

zxq0220 发表于 2013-9-18 08:11
前面改了。再试试。

兄弟怎么没看到东西了呢？

Free-Lancer · 发表于 2013-9-18 17:38:14

本帖最后由 Free-Lancer 于 2013-9-18 22:35 编辑

xiongqunan 发表于 2013-9-18 08:48
兄弟怎么没看到东西了呢？

适用 API

(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 (+ vy 45.))
(polar (car box) pi 45.)
h
)
)
(t
(drawpl (polar (cadr box) 0. 45.)
(polar (cadr box) 0. (+ 45. vy))
h
) ;_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 (+ vy 45.)) 
        (polar (car box) pi 45.) 
        h 
    ) 
       ) 
       (t 
    (drawpl    (polar (cadr box) 0. 45.) 
        (polar (cadr box) 0. (+ 45. vy)) 
        h 
    ) ;_right 
       ) 
     ) 
  ) 
  (princ) 
)

st788796 · 发表于 2013-9-18 18:05:45

本帖最后由 st788796 于 2013-9-18 18:07 编辑

while应该加个(not (zerop h))判断
rtos 中变量名不对

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

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

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

点评

评分

点评

点评

点评

点评

点评

点评

点评