溜溜问答 > 平面设计 > CAD问答 > 求CAD的一个lisp程序?
脸plus
脸plus
邀请你来回答
74人阅读 2023-02-24

求CAD的一个lisp程序?

我要回答
0个回答
该问答暂无回答,快来抢首评!
我要回答

相关问题

CAD lisp程序
共4条回答 >
吧噗勒斯: 可以用反应器实现,前提是画线和输入文字必须用定义的函数一次性操作完成.LISP代码如下:(VL-Load-Com)(defunc:Line_Txt(/PtPt1Pt2EntLineHandTxtVlaObjTmp)(setqPt1(getpoint"\n指定第一点:"))(setqPt2(getpoint"\n指定下一点:"))(setqPt(list(/(+(carPt1)(carPt2))2)(/(+(cadrPt1)(cadrPt2))2)(/(+(caddrPt1)(ca....
(25) 回复
求大神帮忙写一个CAD的lisp程序
共3条回答 >
(。・ω・。)ノ♡: 还要什么程序哦。。。。。简单的很,只要有样品文字或者样式,你就按MA就行了,希望能帮到你,
回复
求一个简单的CAD_lisp程序代码
共2条回答 >
👾-₩: ;请试用以下程序;byDnBc(defunc:jctc()(vl-load-com)(if(and(setqtcm(getstring"\n图层名:"))(/=tcm""))(if(=(tblsearch"layer"tcm)nil)(command"_layer""n"tcm"")(progn(setqobj(vlax-ename->vla-object(tblobjname"layer"tcm)))(vlax-putobj"layeron"(*-1(1+(vlax-getobj"la....
(1) 回复
CAD lisp 小程序 求高手!
共1条回答 >
魏洁: autocad2007的copy自身就是多次拷贝,就是你不用输入m就是多次拷贝,但在二次开发中一定要用m下面的lisp程序是用于拷贝(defunc:ccp1()(prompt"选择要拷贝的目标:")(setqen(ssget))(prompt"输入基点:")(setqp1(getpoint))(command"copy"en""p1)(while(setqp2(getpoint))(commandp2)))在上面的程序中应没输入"m"虽然copy在命令下是多次拷贝的在程序中给它了多次拷贝的条件,....
(3) 回复
求一个CAD的lisp程序
共1条回答 >
是我买错了梦: ;请试用以下程序;byDnBc(defunc:jctc()(vl-load-com)(if(and(setqtcm(getstring"\n图层名:"))(/=tcm""))(if(=(tblsearch"layer"tcm)nil)(command"_layer""n"tcm"")(progn(setqobj(vlax-ename->vla-object(tblobjname"layer"tcm)))(vlax-putobj"layeron"(*-1(1+(vlax-getobj"la....
回复
发表成功!
感谢您的分享!
好的
官方微信群

(微信添加“妙妙”或“笑笑”,邀您进群)