99问答网
所有问题
批量修改CAD图档 LISP代码 急求!!
如每个图档都执行类似(setq an1 (ssget "_C" '(155 22) '(1 208) '(0 . "DIMENSION")))
(command "explode" an1)步骤
举报该问题
其他回答
第1个回答 2022-05-16
这个问题用LISP来解决是有点难度的，LISP对文件操作不友好，建议用VB或C++，来做，如果需要，我可以帮你做一个的
相似回答
批量修改CAD图档
LISP代码
急求!!
答：
这个问题用LISP来解决是有点难度的，
LISP对文件操作不友好，建议用VB或C++，来做
，如果需要，我可以帮你做一个的
...百分比
改
文本中的数值,如24米增6%变25.44米,能给一个
lisp代码
...
答：
修改
文字内容，需要对文字内容分析，根据给出的条件，是修改【=】号后面的值。auto
lisp代码
如下：(defun c:tes ( / #k2 &kw1 ent) (setvar "dimzin" 0) (if (not #k1) (setq #k1 6) ) (if (setq #k2 (getreal (strcat "\n请输入增加百分比默认%:<" (rtos #k1) ">"))) (set...
CAD
快速切换图层
LISP代码
问题
答：
图层状态 '(62 . 7) ;图层颜色 '(6 . "bylayer") ;图层线型) ) )(setq YH_S (cadr (ssgetfirst)))(setq ent (ssget)) 就加这一句就行了 (if YH_S (command "CHPROP" YH_S "" "la" YH_layer "c" "bylayer" "") (setvar "clayer" YH_layer) ...
一段
cad
的
lisp代码修改
。
答：
(defun c:autodimlines ()(setq ss (ssget '((0 . "line")))(setq number (sslength ss))(setq i 0)(repeat number (setq entname (ssname ss i))(setq ent (entget entname))(setq point_a (cdr (assoc 10 ent)))(setq point_b (cdr (assoc 11 ent)))(setq d (* -0.2...
CADLISP
如何实现命令可以默认参数执行,同时可以按需求
修改
参数,例如C...
答：
可以通过调用函数来执行命令。当不提供参数时，函数将使用默认值执行操作。如果需要
修改
参数，可以在调用函数时提供新的参数值。通过以上步骤，你可以实现具有默认参数并允许根据需要修改参数的
CADLISP
命令，类似于CAD自带的倒角命令。请注意，具体实现可能会因CAD软件版本和相关LISP环境的不同而有所变化。
求
cad
lisp修改
和获取当前全局线型和线宽的
代码
答：
CELTYPE返回当前线型，返回值就是线型的名称；CELWEIGHT返回当前线宽，返回值见下图说明，图中“新对象的线宽”，就是当前线宽。
cad批量修改
图框文字,图框不是块!
答：
通常情况下，图框是块，设计审核的姓名作为变量也是通过属性增强编辑器来填写的，不会直接通过块编辑器来改。对于你说图框连块都不是，想要
批量修改
文字还是只能用查找和替换find。你说要在设计审核之类的后面加名字，如果是设计+姓名是横排显示的那种，你可以find 修改设计为设计+姓名，两个之间加空格，...
CADlisp
编程:如何用lisp处理一个dwg
图形
中的多个多线段?
答：
方案一：直接读取dwg格式文件有点难度，估计高手会做 方案二：若是文件有很多要做的话，可以用C#，C++，VB通过COM去开发，用COM方式依次打开dwg
图档
，然后遍历图元来进行你的要求来运算 方案三：若是文件有很多要做的话，也可以用AutoLisp来做，自动打开你的文件列表，然后遍历图元来进行你的要求来运算...
求
lisp代码
!怎么把图层
改
成与文字内容一样名称的图层
答：
代码
如下：(defun c:tes ( / &kw ent i lays n obj tc tr x)(vl-load-com)(princ "\n请选择文字")(if (setq &kw (ssget '((0 . "TEXT")))(progn (while (setq ent (ssname &kw 0))(setq &kw (ssdel ent &kw)obj (vlax-ename->vla-object ent)tr (cdr (assoc 1 (en...
大家正在搜
CAD图纸代码大全
CAD代码
CAD标注代码
CAD材质代码
CAD84050代码
安装CAD身份代码是啥
CAD多行文字有代码
CAD材料代码表
CAD图档怎么删