xyp1964 发表于 2011-10-19 09:36:51

【e派】e派工具箱(XCAD)学习与提高

本帖最后由 xyp1964 于 2019-12-24 23:01 编辑

;; e派工具箱(XCAD)下载：http://xyp1964.ys168.comQQ群: 24942984
;; 欢迎大家多多交流、拍砖、泼冷水……
;; 简单的编程申请也可以发进来，可视情况解决
【最新版本】：V2019.11.18

幻灯片库文件：



【V2012.11.18版本】




safety 发表于 2012-8-23 10:19:25

急需求这个东西，支持楼主了

julia67 发表于 2011-10-22 15:04:39

顶顶

xyp1964 发表于 2020-12-17 21:52:36

attach://112307.gif

xyp1964 发表于 2011-10-19 09:40:06

最新功能：



zbwei120 发表于 2011-10-19 11:27:52

院长的东西很好，我经常使用，谢谢

raobinhsh 发表于 2011-10-19 17:52:58

本帖最后由 raobinhsh 于 2011-10-19 17:54 编辑

能否提供工具箱里面每个命令的演示呀

露水2 发表于 2011-10-19 17:53:40

支持一下，不错.

xyp1964 发表于 2011-10-19 17:56:11

raobinhsh 发表于 2011-10-19 17:52 static/image/common/back.gif
能否提供工具箱里面每个命令的演示呀

这个就得靠大家了……

GamIng 发表于 2011-10-19 18:00:54

顶院长，支持院长。虽然不用院长工具箱。

whybry 发表于 2011-10-19 18:08:26

功能很强大

xyp1964 发表于 2011-10-19 18:28:51

本帖最后由 xyp1964 于 2011-10-20 06:30 编辑



;; zxys(直线延伸)
(defun c:zxys (/ ilst ll1 ll2)
(cmdla0)
;; __________________________________________________________________
(defun main-pro (/ ss i s1)
    (if (setq s0 (car (entsel "\n选择边界线<退出>: ")))
      (progn
(redraw s0 3)
(princ "\n选择区域直线: ")
(setq ss (if (= bo4 "1")
   (ssget (list '(0 . "line") (cons 8 (nth (atoi po1) lst1))))
   (ssget '((0 . "line")))
   )
)
(if ss
   (progn
   (setq ptn '() i -1)
   (if (ssmemb s0 ss)
       (ssdel s0 ss)
   )
   (while (setq s1 (ssname ss (setq i (1+ i))))
       (if (not (xyp-get-Inters s0 s1 0))
(setq pt(car (xyp-get-Inters s1 s0 3))
      ptn (cons pt ptn)
      s1(xyp-LinePtSub s1 pt)
)
(if (and (= bo2 "1")
    (setq ptn1 (xyp-get-Inters s0 s1 0))
    (= (length ptn1) 1)
      )
    (setq s1 (xyp-LinePtSub s1 (car ptn1)))
)
       )
   )
   (if (and ptn (= bo1 "1") (xyp-etype s0 "LINE"))
       (setq ptn (cdr (xyp-Max-Pt2pt ptn))
      s0 (xyp-SubUpd s0 10 (car ptn))
      s0 (xyp-SubUpd s0 11 (cadr ptn))
       )
   )
   )
)
(redraw s0 4)
      )
    )
)
;; __________________________________________________________________
(defun abo4 ()
    (xyp-Dcl-Gettile '("bo4"))
    (cond ((= bo4 "1") (mode_tile "po1" 0) (mode_tile "k01" 0))
   ((= bo4 "0") (mode_tile "po1" 1) (mode_tile "k01" 1))
    )
)
(defun ak01 ()
    (if (setq s1 (car (entsel "\n选择<退出>: ")))
      (setq la (xyp-get-dxf 8 s1)
   po1 (itoa (- (length lst1) (length (member la lst1))))
      )
    )
    (sub)
)
;; __________________________________________________________________
(setq ll1 '(bo1 po1 bo4 bo2)
ll2 '("1" "0" "1" "1")
)
(defun ajbcs () (xyp-Multiple-Settile ll1 ll2))
(xyp-initSet ll1 ll2)
(setq lst1 (xyp-get-layers)
ilst '(("bo1" "边界延伸" "bool")
      ("bo2" "短边消除" "bool")
      ":row{"
      ("bo4" "图层过滤" "bool" "(abo4)")
      ("po1" "" "poplist" "lst1" "8")
      ("k01" "" "i6" "-15" "2" "xyp1964(szx)" "(ak01)")
      "}"
      "spacer;"
      ("" "" "user""(abo4)")
      ("jbcs" "缺省参数" "button1" "(ajbcs)")
      "spacer;"
      "ioc"
       )
)
(if (= (xyp-Dcl-Init Ilst "【直线延伸】" t) 1)
    (main-pro)
)
(cmdla1)
)

inhoo0 发表于 2011-10-19 19:40:32

院长工具箱 赞一个
页: [1] 2 3 4 5 6 7 8 9 10
查看完整版本: 【e派】e派工具箱(XCAD)学习与提高