55问答网
所有问题
你有这个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斜杠