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

xiongqunan · 发表于 2013-9-18 18:37:55

Free-Lancer 发表于 2013-9-18 17:38
适用 API

是呀用不了也！出现这样的提示“错误: no function definition: XDRX_ENTSEL”

st788796 · 发表于 2013-9-18 19:25:15

xiongqunan 发表于 2013-9-18 18:37
是呀用不了也！出现这样的提示“错误: no function definition: XDRX_ENTSEL”

需要加载相应版本的xdapi

xiongqunan · 发表于 2013-9-18 21:09:46

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

那可以审核掉了！再发一次好吗？

Free-Lancer · 发表于 2013-9-18 22:36:44

xiongqunan 发表于 2013-9-18 21:09
那可以审核掉了！再发一次好吗？

13 楼程序已修改

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

;绘制零件侧视图
(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请点选第二点: "))
(if (not (tblsearch "LAYER" "DIM"))
(command "-LAYER" "M" "DIM" "C" 2 "DIM" "")
)
(command "line" pt1 pt2 "")
(if (setq ee(entlast)) (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)
(if (setq ss(ssget pt1))
(setq enlay (jx_dxf 8(ssname ss 0)))
(command "_RECTANG" pt1 pt2)
)
(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))
(progn
(command "_RECTANG" PT1 PT2)
(set tt (getvar "CLAYER"))
))
(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)) pp2 (polar pp2 (/ pi 2) (* hh 0.2)))
(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请点选第二点: ")) 
 (if (not (tblsearch "LAYER" "DIM")) 
  (command "-LAYER" "M" "DIM" "C" 2 "DIM" "") 
 ) 
 (command "line" pt1 pt2 "") 
 (if (setq ee(entlast)) (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) 
  (if (setq ss(ssget pt1)) 
   (setq enlay (jx_dxf 8(ssname ss 0))) 
   (command "_RECTANG" pt1 pt2) 
  ) 
  (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)) 
  (progn 
   (command "_RECTANG" PT1 PT2) 
   (set tt (getvar "CLAYER")) 
  )) 
  (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)) pp2 (polar pp2 (/ pi 2) (* hh 0.2))) 
  (command "_CHPROP" "L" "" "LA" "DIM" "") 
  (jx_lay_unlock lay) 
  (setvar "osmode" os) 
 )) 
 (princ) 
)

zxq0220 · 发表于 2013-9-19 07:53:09

;绘制零件侧视图
(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请点选第二点: "))
(if (not (tblsearch "LAYER" "DIM"))
 (command "-LAYER" "M" "DIM" "C" 2 "DIM" "")
)
(command "line" pt1 pt2 "")
(if (setq ee(entlast)) (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)
 (if (setq ss(ssget pt1))
(setq enlay (jx_dxf 8(ssname ss 0)))
(command "_RECTANG" pt1 pt2)
 )
 (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))
 (progn
(command "_RECTANG" PT1 PT2)
(set tt (getvar "CLAYER"))
 ))
 (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)) pp2 (polar pp2 (/ pi 2) (* hh 0.2)))
 (command "_CHPROP" "L" "" "LA" "DIM" "")
 (jx_lay_unlock lay)
 (setvar "osmode" os)
))
(princ)
)

zxq0220 · 发表于 2013-9-19 07:54:44

怎么发贴总是通不过审核呀？

eachy · 发表于 2013-9-19 08:26:19

zxq0220 发表于 2013-9-19 07:54
怎么发贴总是通不过审核呀？

在哪里出现审核的？一直没有注意到还有审核选项，有敏感词汇？

zxq0220 · 发表于 2013-9-19 08:32:31

eachy 发表于 2013-9-19 08:26
在哪里出现审核的？一直没有注意到还有审核选项，有敏感词汇？

没有。纯代码。

xiongqunan · 发表于 2013-9-20 09:07:47

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

兄弟节日快乐。
你这个程序加载后怎么只能用一次呀？用第二次的时候就出现以下提示！
命令: CS3
请点选一点:
请点选第二点:
起始点: ; 错误: 参数类型错误: symbolp 20
命令: CS3
请点选一点:
请点选第二点:
起始点: ; 错误: 参数类型错误: symbolp 20

xiongqunan · 发表于 2013-9-20 09:12:26

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

还有个问题点就是府视图的标注方法不对！好象只能标横向高度尺寸不能标纵向高度尺寸。

Free-Lancer · 发表于 2013-9-20 09:51:40

xiongqunan 发表于 2013-9-20 09:12
还有个问题点就是府视图的标注方法不对！好象只能标横向高度尺寸不能标纵向高度尺寸。

这个将侧视图横着放了，不明白机械制图

xiongqunan · 发表于 2013-9-20 11:43:53

Free-Lancer 发表于 2013-9-20 09:51
这个将侧视图横着放了，不明白机械制图

兄弟你这下是用的那个程序？13楼改过的还是加载不了也！！！

Free-Lancer · 发表于 2013-9-20 12:10:36

xiongqunan 发表于 2013-9-20 11:43
兄弟你这下是用的那个程序？13楼改过的还是加载不了也！！！

http://bbs.xdcad.net/thread-668896-1-1.html
到这个帖子下载CAD 版本的 API , 加载后使用

xiongqunan · 发表于 2013-9-22 11:51:38

Free-Lancer 发表于 2013-9-20 12:10
http://bbs.xdcad.net/thread-668896-1-1.html
到这个帖子下载CAD 版本的 API , 加载后使用

兄弟你这个程序我现在加载是能加载了！
但是又出现问题了。
问题点一：侧视图的高度不是我输用的高度！
问题点二：侧视图与主视图对不整齐！！！

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

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

点评

点评

点评

点评

点评

点评

点评

点评

点评