1.帮忙写个CADLISP程序好吗,天正d天可以写了把LISP文件发到我的邮箱里好吗?zhj1991125@sina.com 谢谢

帮忙写个CADLISP程序好吗,可以写了把LISP文件发到我的邮箱里好吗?zhj1991125@sina.com 谢谢

       我这里有一个转为多段线的LISP。直接输入命令J，源码springmvc表单源码框选任何图形，天正d天潜伏区神秘底指标源码只要是源码通达信安全分源码闭合的线都能成为多段线。

       别忘了给分哈。天正d天海港中奥能源码头

源码和龙美容行业小程序源码

       ;;; Join a few lines or arcs to one union

源码和龙美容行业小程序源码

       (defun C:j (/ ent_nam e1typ num sset1 sset1_num)

源码和龙美容行业小程序源码

        (setq SSET1 (ssget))

源码和龙美容行业小程序源码

        (setq SSET1_num (sslength SSET1))

源码和龙美容行业小程序源码

        (setq num 0)

源码和龙美容行业小程序源码

        (while (< num SSET1_num)

源码和龙美容行业小程序源码

        (setq ent_nam (ssname SSET1 num))

源码和龙美容行业小程序源码

        (setq e1dxf (entget ent_nam)

源码和龙美容行业小程序源码

        e1typ (cdr (assoc 0 e1dxf))

源码和龙美容行业小程序源码

        )

源码和龙美容行业小程序源码

        (if (= "POLYLINE" e1typ)

源码和龙美容行业小程序源码

        (command "PEDIT" ent_nam "J" SSET1 "" "X")

源码和龙美容行业小程序源码

        )

源码和龙美容行业小程序源码

        (if (or (= e1typ "ARC")(= e1typ "LINE"))

源码和龙美容行业小程序源码

        (command "PEDIT" ent_nam "Y" "J" SSET1 "" "X"))

源码和龙美容行业小程序源码

        (setq num (1+ num))

源码和龙美容行业小程序源码

        )

源码和龙美容行业小程序源码

        (princ)

源码和龙美容行业小程序源码

       ) ;end aj.lsp

源码和龙美容行业小程序源码