www问答网
所有问题
当前搜索:
autolisp编写教程
如何使用
AutoLISP
语言例程
答:
单击Close按钮关闭对话方块。运行
AutoLISP
程序 一旦lisp文件被加载,它可以在命令行运行。在运行时只需输入命令的名称(而不是文件名)。在lisp文件中开始是 (defun c:zone ,所以在命令行输入zone。
autolisp教程
高分悬赏,请高手用
AutoLISP编写
4个小程序:
答:
(一)(defun c:tuxing1 ()(setq Rd (getdist "\n R=:"))(setq Rx (getdist "\n r=:"))(setq p0 (getPoint "\n Enter Center of Circle"))(setq p1 (list(car p0) (+ (+ (cadr p0) Rd) 5)))(setq p2 (list(- (- (car p0) Rd) 5) (cadr p0)))(setq p3 (list...
如何在AutoCAD Visual Lisp编辑器中创建与编译lisp程序
答:
作为一个编程语言,
AutoLisp
能做的很多:1、扩充AutoCAD的原有命令。任何带有C:前缀的AutoLisp函数,在AutoCAD中都可以像"line" "circle""dim"等命令一样使用。2、
编写
代码直接根据国标图库要求来绘出一些常用图库标准件什么的,或是代替人查找各种设计手册中的相关数据并继续使用。3、进行参数化绘图,对于...
用
autolisp编写
选中一个矩形再选中一个圆把圆移动到矩形中心
答:
) (setq ss (ssget '((0 . "LWPOLYLINE") (70 . 1)));;选择封闭的多段线 (if (/= ss nil) (progn (setq ss (ssname ss 0));;取得第一个多段线 (command ".region" ss "");;变为面域 (setq ss1 (entlast)) (setq obj (vlax-ename->vla-object ss1)...
AutoLisp
程序求助,
编写
一个AutoLisp程序用来画图
答:
(defun c:tes ( / i n p1 p2 r r1 r2 r3 r4 ss1 ss2) (vl-load-com) (if (and (setq p1 (getpoint "\n请选择同心圆圆心")) (setq r1 (s180828a p1 "\n请输入第一个同心圆半径:")) (setq r2 (s180828a p1 "\n请输入第二个同心圆半径:")) (setq r3 (s180828a...
用
autolisp编写
绘制的命令
答:
源程序如下:(defun c:box (/ p p1 p2 a)(setq p (getpoint "Left & Bottom point: ")a (getdist p "A="))(command "PLINE" p (setq p1 (polar p 0 a)) (setq p2 (polar p1 (/ pi 2) a)) (polar p2 (- pi) a) "C"))
在cad中如何创建lisp程序?以及大神们所说的lisp解决重复性劳动问题是怎...
答:
在功能区的”管理“选项卡里可以直接打开Visual Lisp编辑器。首先,
AutoLisp
也是一个程序设计语言,作为一个编程语言,AutoLisp能做的很多:扩充AutoCAD的原有命令。任何带有C:前缀的AutoLisp函数,在AutoCAD中都可以像"line" "circle" "dim"等命令一样使用。
编写
代码直接根据国标图库要求来绘出一些常用图库标...
编写
一个
AutoLISP
程序,画出一个边长为A的正方形,以及该正方形的内切圆...
答:
(setq A (getreal"\n:输入边长"))(setq ANG (getreal"\n:输入角度"))(setq p1 (getpoint"\n:指定起点"))(setvar "osmode" 0)(setq p2 (polar p1 (* pi (/ ANG 180)) A))(setq p3 (polar p2 (* pi (+ 0.5 (/ ANG 180))) A))(setq p4 (polar p1 (* pi (+ 0...
请帮忙用
autolisp编写
一个已知平面二点对齐UCS的lisp。
答:
(defun c:ducs()(setq os (getvar "osmode"))(setq cm (getvar "cmdecho"))(setvar "osmode" 9)(setvar "cmdecho" 0)(command "ucs" "w")(setq p1 (getpoint "\n请选取第一点P1:"))(setq p2 (getpoint "\n请选取第二点P2:"))(setq p3 (getpoint "\n请选取第三点P3:"))...
编写
一个
AutoLISP
程序,画出一条直线,并生成给定数目(N条)的与其平行的...
答:
(defun c:hx ( / int1 y0)(setq int1 (getint "\n输入指定绘制数目:"))(if (= int1 nil) (setq int1 1))(setq y0 0)(repeat int1 (command ".line" (list 0 y0) (list 30 y0) "");绘制长度为30的直线 (princ "\nOK")(setq y0 (+ y0 10)));end repeat int1 (princ...
1
2
3
4
5
6
7
8
涓嬩竴椤
其他人还搜
autolisp编程大全
autolisp入门教程
autocad lisp程序100例
autolisp程序怎么运行
autolisp编辑器
autolisp画六方柱
autolisp语言
autolisp表处理函数案例
AutoLisp从入门到放弃