你有这个CAD中的程序autolisp的完整代码吗

如题所述

举报该问题

相似回答

这是cad的autolisp的编程题,求助啊、、、答：(setvar "cmdecho" 0)(setq pt1 (getpoint "第1点"))(setq pt2 (getpoint "第2点"))(setq pt3 (getpoint "第3点"))(command "line" pt1 pt2 "")(command "point" pt3 "");;;不判断pt1、2、3是否共线，;;; 方法一：;;;pt4x，pt4y点的确定 ;;;分别获取pt1、2、3的...

求一个autolisp程序,在cad图形里,批量去掉文字里面的空格。答：(defun c:cba() (setq ssx (ssget '((0 . "*text")(1 . "* *"))) (or ssx (setq ssx (ssadd))) (setq m (sslength ssx) n 0) (while (< n m) (setq en (ssname ssx n)) (setq data (entget en)) (setq str (cdr (assoc 1 data))) (while (...

编写autolisp程序答：(defun c:drawing()(setvar "cmdecho" 0)(setq ptcenter (getpoint "\n请输入圆心位置:"))(setq dist(getdist "\n请输入基圆半径:"))(command "_circle" ptcenter dist)(command "_circle" ptcenter (* dist 1.2) )(command "_circle" ptcenter (* dist 1.2 1.2) )(command "_...

autolisp语言怎么插入到cad中,怎么在cad中运用这个代码命令???_百度...答：1、手动加载时，每个文档中都要分别加载后才能使用，加载时也可用鼠标点击命令“加载应用程序”，该使命在旧版本CAD经典界面时位于“工具”菜单下，新版本Ribbon界面时位于“管理”功能区下面。2、自动加载时文件路径的输入方法，例如你的代码文件sa.lsp的完整路径为“E:\abc\sa.lsp”的话，就应输入“E...

求在CAD中快速的将已知图元变更为当前图层的图元的AUtoLISP小程序?答：autolisp程序内容（注意是英文打字）：;修改图元为当前图层,命令为：【XG】(defun C:XG ( / &k1 &kw1 &ob1 &ss1 &tc1)(setvar "cmdecho" 0)(setvar "blipmode" 0)(if (null vlax-dump-object) (vl-load-com) )(setq &tc1 (getvar "clayer"))(if (setq &kw1 (ssget))(progn (...

大家正在搜

autocadlisp编程代码 autocad lisp程序 autolisp的cons cad的lisp程序大集合 autocadlisp教程 autolisp教程 autolisp论坛 autolisp语言 autolisp斜杠