CAD lisp程序瓶颈,高手帮忙!
发布网友
发布时间:2023-09-23 05:51
我来回答
共2个回答
热心网友
时间:2024-02-28 11:14
autocad2007的copy自身就是多次拷贝,就是你不用输入m就是多次拷贝,但在二次开发中一定要用m
下面的lisp程序是用于拷贝
(defun c:*1 ()
(prompt "选择要拷贝的目标:")
(setq en (ssget))
(prompt "输入基点:")
(setq p1 (getpoint))
(command "copy" en "" p1 )
(while (setq p2 (getpoint))
(command p2)
)
)
在上面的程序中应没输入"m"虽然copy在命令下是多次拷贝的在程序中给它了多次拷贝的条件,但只能拷贝一次。
(defun c:* ()
(prompt "选择要拷贝的目标:")
(setq en (ssget))
(prompt "输入基点:")
(setq p1 (getpoint))
(command "copy" en "" "m" p1 )
(while (setq p2 (getpoint))
(command p2)
)
(command "")
)
在程序*中在输入p1前加了"m" (command "copy" en "" "m" p1 )它就是多次拷贝
下面是一个循环只要p2有值它就要去拷贝,当你在(setq p2 (getpoint))输入回车,这时p2是空值,程序就退出。
追问能不能在我上面那个程序中直接改?
热心网友
时间:2024-02-28 11:14
搞的那么麻烦
(defun c:aa()
(setq ss(car(entsel)))
(command "copy" ss "0,0" "0,0" "")
(princ)
)
cad高手帮帮忙,怎样使用这个lsp工具
这个要会编程才行的,据我所知CAD不仅支持lisp,还支持VB 如果你不会的话可以拿现成的编好的,保存好,然后输入appload,就弹出一个外部程序加载对话框,你在里面选择你的lsp程序的保存路径就行了,下面一行会提示你加载成功.然后你在命令框,输入LSP程序的调用命令就能调用这个程序了,比如这个程序是defun zzz...
lisp程序问题。请高手指教
将 :(command "-insert" file '(0 0 0) (/ num 38) (/ num 38) "")改为: (command "-insert" file pause (/ num 38) (/ num 38) "")试一试
求高手帮忙写个写lisp程序,在CAD里面,点取两点,能计算出以此两点为对...
用得着这么麻烦吗?将所计算面积的范围用多线段圈起来,按F+1,面积长度都有了……还有就是天正建筑里面有面积计算一个工具,不用你说的这么麻烦的,而且准确。
寻找高手帮忙编写一个CAD的lisp程序,输入命令框选所有线条,能所有将...
你是要选择所有园弧吧,ARC就是园弧的代号 (defun c:qs_arc(/ s1 s2 sum)(command "_.PSELECT" (ssget "x" (list(cons 0 "ARC"))) ""))如果要选择ARC和所有line,则改为 (command "_.PSELECT" (ssget "x" (list(cons 0 "ARC"))) (ssget "x" (list(cons 0 "*line")))...
LISP CAD求高手帮忙利用lisp代码实现特定选择!
(SETQ ss (SSGET "X" '((0 . "TEXT")(cons 62 1) (-4 . "=") (40 . 5)));红色 (SETQ ss (SSGET "X" '((0 . "TEXT")(cons 62 255) (-4 . "=") (40 . 5)));黑色 颜色就按 color中的颜色序号设置
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代码帮忙写个CAD小程序 像图片这样拾取两点绘制沉孔的侧...
做一个动态块也可以实现你想要的功能
CAD不能打散也不能组块
估计是中招了,很多cad中了lisp病毒的时候,就会出现炸开、组块的命令不能使用。我以前也以为是版本、安装什么的问题,后来才知道。cad的lisp病毒还不好杀毒,我现在使用avast,好像有所好转,没有再出现这样的事情,这种情况多出现在2004以下版本里 ...
Lisp CAD 求助高手(command "explode" "all")
我认为没有问题,都是正常结果。因为不是所有的图形对象都可以分解,例如有些非等比例块对象、有些填充对象等等。
请CAD高手帮忙写个lisp命令,
信手拈来