社区 › AutoLISP/Visual LISP 编程技术 › 【e派】工具箱函数再揭秘及应用实例

杜阳 发表于 2014-7-8 13:44:44

对院长你这样的高手来说   我索要这两个函数的确没啥用但是 对我这样的初学者那是很重要的啊

恕放之生命 发表于 2014-7-19 17:21:38

路过学习。

yhly555 发表于 2015-2-28 15:53:59

求院长几个源码，谢谢！
xyp-MkLaCo
xyp-PlineCCW-Check
xyp-circle
xyp-get-Pt2XY
xyp-Text

clinber 发表于 2015-5-18 22:25:07

学会组装源代码 是当务之急 非常感谢院长

hrbustmqc 发表于 2015-5-19 23:35:37

神一样的源码

xyp1964 发表于 2015-7-2 21:20:21

本帖最后由 xyp1964 于 2017-11-20 21:48 编辑

yhly555 发表于 2015-2-28 15:53 static/image/common/back.gif
求院长几个源码，谢谢！
xyp-MkLaCo
xyp-PlineCCW-Check


(defun xyp-mkLaCo (la co)
(if (= (tblsearch "layer" la) nil)
    (if      (= (type co) 'INT)
      (command "-layer" "m" la "c" co "" "")
      (command "-layer" "m" la "c" "t" co "" "")
    )
    (command "-layer" "t" la "")
)
(setvar 'clayer la)
(setvar 'cecolor "BYLAYER")
(setvar 'celtype "ByLayer")
(setvar 'celweight -1)
(princ)
)

xyp1964 发表于 2015-7-2 21:22:01

本帖最后由 xyp1964 于 2017-11-20 21:49 编辑

(defun xyp-Pt2XY (pt dx dy)(mapcar '+ (xyp-2D3D pt) (list dx dy 0)))

TPG辉 发表于 2015-7-12 01:31:50

本帖最后由 TPG辉 于 2015-7-12 01:33 编辑

求院长几个源码，谢谢！！！
xyp-circleCR
xyp-ss2list
xyp-SSelEntnext

xyp1964 发表于 2015-7-12 07:35:31

本帖最后由 xyp1964 于 2017-11-20 21:49 编辑

TPG辉 发表于 2015-7-12 01:31 static/image/common/back.gif
求院长几个源码，谢谢！！！
xyp-circleCR
xyp-ss2list


(defun xyp-SselEntnext (s0 / ss)
(setq ss (ssadd))
(while (setq s0 (entnext s0))
    (setq ss (ssadd s0 ss))
)
(if (/= (sslength ss) 0)
    ss
)
)

xyp1964 发表于 2015-7-12 07:38:46

本帖最后由 xyp1964 于 2017-11-20 21:49 编辑

TPG辉 发表于 2015-7-12 01:31 static/image/common/back.gif
求院长几个源码，谢谢！！！
xyp-circleCR
xyp-ss2list

(defun xyp-CircleCR (pt rr)
(command "circle" "non" pt rr)
(entlast)
)

查看完整版本: 【e派】工具箱函数再揭秘及应用实例