77问答网
所有问题
当前搜索:
autocadlisp编程代码
模具
CAD
的
LISP程序
画函数曲线。帮帮忙~
答:
阿基米德螺旋线 用auto
lisp编程
可以实现.(command "pline" )(setq n 0)(repeat 1000 (command (polar (list 0 0) (/ n 57.3) n))(setq n (1+ n)))(command)弹簧和螺纹(三维)1、打开
CAD
后,找工具/AUTOLISP/VISUAL LISP编辑器,打开.点新建文件 2、然后输入 (defun c:luoxuan (/...
在
Auto CAD
中关于VBA或Auto
LISP
进行
编程
,画出三角形。
答:
(defun c:3jx (/ @os4 #os #cm @p1 #os1 #os2 #os3 #l1 #l2 #l3 #lh #th #ar) (setq #cm (getvar "cmdecho")) (setvar "cmdecho" 0) (setvar "blipmode" 0) (if (null @os4) (setq @os4 '(500.0 500.0)) ) (setq @p1 (getpoint "\n请输入三角形左下角的...
CAD lisp
定点打断,定点画圆,定点
lisp程序
操作!
答:
(defun c:br1 ()(setq pt(getpoint"\n选择点打断")) (princ "\n选择要打断的线") (command "break" pause "f" pt pt);这里你可以插入设置特定层为当前层的命令 (command "circle" pt 1.5));这里你再还原当前层为以前的层 ...
visual
lisp
for
autocad
是什么
答:
是用于
AutoCAD
二次开发的
编程
语言,即:可视化
lisp
语言。例如:( defun c:safe ( / TH I1 pt pt1 pt2 ptm pts pte ptc rx ang olderr )( setq TH 3.5 olderr *error* *error* myerr I1 ( getvar "useri1" ))(modes '("cmdecho" "osmode" ))( setvar "cmdecho" 0 )( ...
LISP
CAD
求高手帮忙看看
代码
!实现图内文字筛选是否有重复文字?
答:
(defun c:TT3 ( / #kw #k2 ) (setvar "cmdecho" 0) (setvar "blipmode" 0) (if (null vlax-dump-object) (vl-load-com) ) (defun ttes5 () (initget "T") (setq #kw (entsel "\n请选择文字或输入文字(T)[输入文字(T)]: <选择文字> ")) (cond ((= (type #kw...
高手帮忙下用lisp写段
代码AutoCAD LISP
,铝型材每米重量,周长,
lisp代码
...
答:
你给的条件明显不足。数据是怎么样输入的?如果是矩形截面,可以用Area命令得到它的面积和周长,都储存在 var里面 (command "area" "O" entname) ;这里entname是指
cad
图形对象,可以用 (car(entel))来选中 (command "area" "O" (car(entel)))然后用(getvar "area")得到面积,(getvar "...
帮忙写个
CAD LISP程序
,就是选中一条线,然后与它相连的都转成同一条多...
答:
我建议还是要熟练运用快捷键,到哪都不会烦恼,一味的追求方便,有时候是对自己不利的,你说的那个连接命令其实不是你说的那么慢,我使用这个命令一般2-3秒就够了,熟练就好了,每出现一个命令框你还要看清按哪个键,肯定是慢得 你说的应该是这样的 PE+空格+M+空格 +选中你要连接的线+空格+...
请教高手用Visual
LISP
较为简单的开发
CAD
实例谁能给我几个!急_百度知...
答:
(setq lis (apply 'append (mapcar '(lambda (x) (list (car x) (cadr x) (
cad
dr x))) pts)))(setq dou (vlax-make-safearray vlax-vbdouble (cons 0 (1- (* 3 (length pts)))(vlax-make-variant (vlax-safearray-fill dou lis)))(defun $dq-moveaction ( )(if (> (setq...
CAD lisp程序
注释解析
答:
(defun c:try( / p);定义命令行命令“try”,定义局部变量“p”(setq p (getpoint "from point: "));利用交互获得一个点,将该点坐标存入变量“p”当中 (command "PLINE");利用命令行启动“PLINE”多段线命令,(while p;循环开始,当p不为空(即交互时一直给出下一点)时,无限循环。(...
您好,我想在
cad
图纸上的指定位置用
lisp
自动标注数据要怎么
编程
呢?
答:
程序
就是把人要做的重复动作自动化。按你所讲,已知标注是4102,运算后得到4000,那么就修改4102为4000即可。
<涓婁竴椤
1
2
3
4
5
6
7
8
9
10
涓嬩竴椤
灏鹃〉
其他人还搜
cad二次开发工具
cad绘制圆弧命令
lisp代码编辑器
lisp程序设计原稿