谁会写一个这样的CADLSP插件？

如题所述

举报该问题

相似回答

哪位英雄会编CAD的LSP,帮忙做一个框选圆孔,不同孔径并用不同孔径符给...答：(defun c:cr()(princ "\n选择要进行统计的圆对象")(If (setq ssa (ssget '((0 . "circle")))(progn (command "_undo" "be") ;设置放弃操作的起点 ;取得选集中所有图元 (setq tymbent (vl-remove-if 'list...

...的距离或者道路中线来计算坡度并标注的LSP插件答：(defun C:podu ()(setq p1 (getpoint "选择第一点: "))(setq p2 (getpoint "选择第二点: "))(setq Delta_X (- (car p1) (car p2)))(setq Delta_Y (- (cadr p1)(cadr p2)))(setq slope (/ (* ...

...的距离或者道路中线来计算坡度并标注的LSP插件?答：(strcat "i=1:" stri)))

求大神帮忙写一个CAD里面LSP命令,要求如下答：;去掉多段线节点(defun c:tes ( / &kw1 ent n obj p1 ss1 ss5 x) (vl-load-com) (if (and (setq ent (entsel "\n请选择多段线对象")) (setq ent (car ent)) (= (cdr (assoc 0 (entget ...

求教CAD lsp插件程序修改成计算选择对象的面积,不要生成面域答：htxt1))(if (setq pt (getpoint "\n文字标注位置"))(entmake (list '(0 . "TEXT") (cons 1 smj) (cons 10 pt) (cons 40 htxt) '(72 . 4) (cons 11 pt)))(pronc));选择封闭曲线得到面积 ...

...表的插件就自己研究个做个用了,想改一个计算面积的lsp cad插件...答：;提取封闭线面积(defun c:tes ( / ent mj obj) (vl-load-com) (if (setq ent (entsel "\n请选择封闭线")) (progn (setq ent (car ent));取得对象 (setq obj (vlax-ename->vla-object ent));转换...

各位高手,以下是我CAD的一个编号插件,我想让它运行成:“请输入编号-指 ...答：(+ n1 zn)sxh1 (strcat qz (itoa n1) hz)p1 (getpoint "\n请指定下一插入点: ")))(setvar "cmdecho" oce1)(vlax-release-object ms)(princ))(prompt "\n 提醒数字编号程序已加载，加载命令为bh")...

有苹果版CAD计算长度的插件吗答：1、在CAD中输入AP按回车，在对话框中浏览并加载下载好的这个插件“计算总长.LSP”2、输入ZCD(即总长度的首拼），按空格键调用程序3、框选出需要计算总长度的所有线条，按下空格，即可在命令栏得到总长信息4、测试版本Aut...

下面是CAD中自动计算多条线段长度的一个LSP插件的程序内容,我想将计 ...答：(repeat (sslength SS) (setq CURVE (vlax-ename->vla-object (ssname SS N))) (setq TLEN (vlax-curve-getdistatparam CURVE (vlax-curve-getendparam CURVE))) (setq SUMLEN (+ SUMLEN TLEN)) (setq N (1...

大家正在搜

如何在天正CAD中写CAD CAD定制插件 cad好用的插件 cad插件哪个好用 cad的插件怎么安装 cad怎么使用加载好的插件 CAD全写 CAD写不了中文 CAD里面写不了字