LISP 复数执行命令修改？

AutoLisp,怎么实现重复执行命令

不知道你具体想做什么,就编了一小段,大概可以实现你说的功能,在Vlisp控制台运行.提示选择一点后,判断是否有效,有效则作为标注的第一点,否则退出循环.(setq a 0)(while (/= a nil)(progn(setq a (getpoint ＂选择标注的第一点:＂))(if (/= a nil)(command ＂_dimlinear＂ a pause pause))))

如何使用LISP命令来实现修改 ＂块＂的名字

主要命令:rename分步骤如下:1、选定图块,定义块名变量,如blockname;2、(command ＂rename＂ blockname xxx ＂＂)

如果lisp中两个命令一样执行哪一个

看加载的顺序,会执行第二个.如果子程序命令相同,就会出现错误.

一个lisp程序,请求高手帮我修改下

你的第一个程序是缺少东西的,应该添加 (vl-load-com).W1程序需要建立选择集,然后利用程序修改颜色

我想在lisp中实现,回车执行命令1 不回车执行当前命令,如何才能做.

用两个双引号(即空字符)表示回车.如: (command ＂spline＂ '(1 2) '(3 9) '(5 10) ＂＂ ＂＂ ＂＂)

cad lisp语言编写的程序,求修改

用写字板或记事本打开acad.lisp在里面找到那一断加密程序删除了

先选择后执行命令如何编制

(ssgetfirst) 函数可以获得预定义的选择集,是这类命令的基础.

请帮忙修改AUTO LISP程序

(defun c:mj(/ osm sel n ent obj pt area) (setvar ＂cmdecho＂ 0) (setq osm(getvar ＂. (setq area(rtos(* 0.000001 (vla-get-area obj))2 2)) (command ＂text＂ pt 2000 0 area) (.

AUTOCAD中的 lisp命令修改,是关于自动识别图框比例的一个lisp文.

我个人的体会,程序不要写得太复杂.尽可能简化一些.比如上面这个例子.如果只是要更改某些对象的线型比例,可以在创建那些对象之前,加一句代码,设置相应的线型比例.创建完成后,马上改回来.就可以了.我平常就是这样做的.另外,读了上面的程序,entsel读取的是一个单一对象的值,楼主提供的程序里,好像是选择了一个块吧?

求高人改改这段代码autocaD的lisp代码,原代码要点击两次才能选中.

先是要插入点(如果要在图上选择,就用pause代替),然后是x方向比例、y方向比例、旋转角度.例子:(defun c:a0 () (command ＂insert＂ ＂epda0.dwg＂ pause ＂1＂ ＂1＂ ＂0＂))