1.帮忙写个CADLISP程序好吗,天正d天可以写了把LISP文件发到我的邮箱里好吗?zhj1991125@sina.com 谢谢
帮忙写个CADLISP程序好吗,可以写了把LISP文件发到我的邮箱里好吗?zhj1991125@sina.com 谢谢
我这里有一个转为多段线的LISP。直接输入命令J，源码狂风46级专精源码框选任何图形，天正d天全彩种网站源码只要是源码诱导充话费源码闭合的线都能成为多段线。
别忘了给分哈。天正d天面试aop原理源码
源码vb tkinter 源码用法;;; Join a few lines or arcs to one union
源码vb tkinter 源码用法(defun C:j (/ ent_nam e1typ num sset1 sset1_num)
源码vb tkinter 源码用法(setq SSET1 (ssget))
源码vb tkinter 源码用法(setq SSET1_num (sslength SSET1))
源码vb tkinter 源码用法(setq num 0)
源码vb tkinter 源码用法(while (< num SSET1_num)
源码vb tkinter 源码用法(setq ent_nam (ssname SSET1 num))
源码vb tkinter 源码用法(setq e1dxf (entget ent_nam)
源码vb tkinter 源码用法e1typ (cdr (assoc 0 e1dxf))
源码vb tkinter 源码用法)
源码vb tkinter 源码用法(if (= "POLYLINE" e1typ)
源码vb tkinter 源码用法(command "PEDIT" ent_nam "J" SSET1 "" "X")
源码vb tkinter 源码用法)
源码vb tkinter 源码用法(if (or (= e1typ "ARC")(= e1typ "LINE"))
源码vb tkinter 源码用法(command "PEDIT" ent_nam "Y" "J" SSET1 "" "X"))
源码vb tkinter 源码用法(setq num (1+ num))
源码vb tkinter 源码用法)
源码vb tkinter 源码用法(princ)
源码vb tkinter 源码用法) ;end aj.lsp
源码vb tkinter 源码用法
