1.关于CADLISP问题？
2.帮忙写个CADLISP程序好吗,码堆可以写了把LISP文件发到我的邮箱里好吗?zhj1991125@sina.com 谢谢
3.cadlisp实行命令后显示如下图，在网站论坛求解无果，码堆跪求大神解答，码堆本人小白（解答望精确到步骤），码堆谢谢
关于CADLISP问题？
使用函数entmake，码堆京东的抢购助手源码例：
(entmake (list (cons 0 "CIRCLE") (cons k1) (cons k2) (cons 8 k3) (cons 6 k4) (cons k5) (cons k6)))
说明：
k1是码堆鼠标特效源码坐标如：'(0 0)；
k2是半径，如：;
k3是码堆图层，如："0";
k4是码堆线型，如："Continuous";
k5是码堆颜色，如：1
k6是码堆线宽，如：-1
帮忙写个CADLISP程序好吗,码堆可以写了把LISP文件发到我的邮箱里好吗?zhj@sina.com 谢谢
我这里有一个转为多段线的LISP。直接输入命令J，码堆框选任何图形，码堆旅游源码 thinkphp只要是码堆闭合的线都能成为多段线。
别忘了给分哈。码堆
;;; 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
cadlisp实行命令后显示如下图，在网站论坛求解无果，freebsd源码下载跪求大神解答，本人小白（解答望精确到步骤），谢谢
原因是没有安装Express Tools。打开电脑系统的iptables源码分析卸载或更改程序，在里面点击卸载cad（注意：其它方法卸载cad，会不能够第二次安装这个版本。）
低版本的AutoCAD会卸载了，那么重新安装，安装的时候，把Express Tools同时安装了。
高版本的AutoCAD，卸载的时候，会出现卸载界面，在里面点击添加程序，把Express Tools安装了。
也可以搜索Express Tools图文的安装方法。
