77问答网
所有问题
当前搜索:
cad的lisp程序100例
谁能帮我写个
cad的lisp程序
?
答:
(defun c:jxzxx()(setq cmd (getvar "cmdecho"))(setq osm (getvar "osmode"))(setvar "cmdecho" 0)(command "undo" "be")(If (progn (princ "请选取矩形:")(setq ssa (ssget":S" '((0 . "lwpolyline") (90 . 4) (70 . 1)))(progn (setq dxf (entget (ssname ssa 0)...
cad
lisp程序
答:
(setq Pt1 (getpoint "\n指定第一点:"))(setq Pt2 (getpoint "\n指定下一点:"))(setq Pt (list (/ (+ (car Pt1) (car Pt2)) 2) (/ (+ (cadr Pt1) (cadr Pt2)) 2) (/ (+ (
cad
dr Pt1) (caddr Pt2)) 2)))(command "._Line" Pt1 Pt2 "")(setq EntLine (e...
求
CAD
加开图层
LISP
答:
;;打开指定图层
lisp
(defun c:tes ( / lay lays obj TC_ss tc1)(vl-load-com)(setq TC_ss '() lays (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))(vlax-for obj lays (setq TC_ss (cons (vla-get-Name obj) TC_ss));提取所有图层 )(setq TC_ss (mapcar...
AutoCAD
2010教程及操作技巧?
答:
AutoCad
软件及教程百度网盘免费下载 链接:https://pan.baidu.com/s/1itxRmXAl2N5izKOgiD2XCA?pwd=ffh6 提取码:ffh6
AutoCAD
软件是由美国欧特克有限公司(Autodesk)出品的一款自动
计算机辅助设计
软件,可以用于绘制二维制图和基本三维设计,通过它无需懂得编程,即可自动制图,闷蚂因此它在全球广泛使用...
怎样用
lisp
编写
程序
控制
cad
答:
在
lisp
编辑器中编写一下
程序
,程序的作用为计算线段总长度,并选择另存为位置,保存文件lsp文件。使用
cad
加载lsp文件,选择lsp文件位置。在命令栏点击l,用cad绘制几条线段,如下图所示。在命令栏输入ll,选择所有线段,则在图下计算并显示出了所有线段的总长度...
请教高手用Visual
LISP
较为简单的开发
CAD实例
谁能给我几个!急_百度知...
答:
(if (setq &len (entsel "\n选择要测量斜度的线段 "))(progn (setq @pts (cadr &len) &len (vlax-ename->vla-object (car &len)))(setq @pto (vlax-curve-getclosestpointto &len @pts))(setq @pt1 (vlax-curve-getclosestpointto &len (polar @pts (* pi 0.5) 0.001)))(...
CAD中
一次性把所有相交点都打断的程序
LISP程序
,谢谢,我的邮箱是313013264...
答:
(
cad
dr ipts))pts )ipts (cdddr ipts)))(setq list1 (append list1 pts) ;存obj1交点表,循环结束后再更新 n (+ n (length pts)) ;交点计数累加 );;obj2的交点列表立即更新 (setq outlst (subst (append (nth j outlst) pts)(nth j outlst)outlst )));;当obj1存在交点,...
CADLISP
如何实现命令可以默认参数执行,同时可以按需求修改参数,例如C...
答:
可以通过调用函数来执行命令。当不提供参数时,函数将使用默认值执行操作。如果需要修改参数,可以在调用函数时提供新的参数值。通过以上步骤,你可以实现具有默认参数并允许根据需要修改参数的
CADLISP
命令,类似于CAD自带的倒角命令。请注意,具体实现可能会因CAD软件版本和相关LISP环境的不同而有所变化。
求
CAD
lisp 程序
,选择一条或多条多段线,输出其上点的x,y,z坐标。
答:
复制下面的脚本到命令行回车即可加载,输入pldd,
程序
会提示选择pline,选择pline后会打印所有的三维坐标 (defun c:pldd (/ wb cc ss1 aa pts bhbz ent)(setq ent (car (entsel "\n请选择PLINE")))(setq wb (entget ent) cc nil bhbz (cdr (assoc 70 wb)) )(cond ((= (cdr (...
求一个CAD2004 批量改变圆大小
的lisp 程序
! 悬赏分:5 | 解决时间:2010...
答:
(setq ss (ssget))(setq txsize (getreal "\n输入新的圆半径:"))(setvar "cmdecho" 0)(setq n (sslength ss))(setq index 0)(repeat n (setq ent (entget (ssname ss index)))(setq index (+ 1 index))(setq ty (assoc 0 ent))(if (OR (= "CIRCLE" (cdr ty))(= "ARC"...
1
2
3
4
5
6
7
8
9
10
涓嬩竴椤
灏鹃〉
其他人还搜
cad的lisp程序大集合
autocad lisp程序100例
cad自动生成尺寸标注
cad的lisp命令
cad的lisp插件
cad加工注解标签lisp
CAD自编LISP
如何用lisp生成autocad文件
cad面域双向拉伸lisp代码