完整word样条曲线转多段线lisp.docVIP

(完整word)样条曲线转多段线lisp

(完整word)样条曲线转多段线lisp

(完整word)样条曲线转多段线lisp

;;；下载此文档后，将所有文字复制到文本文档保存，再将文本文档的后缀txt更改为lsp，启动CAD后加载此文件即可使用

(princ”加载程序成功，输入s2p命令可应用此工具\n”)

；；;***样条曲线转多段线程序开始＊＊＊

(defunspline—to-pline(/i)

(vl—load-com）

（setq ＊thisdrawing*（vla-get—activedocument

（vlax—get-acad—object）

）;_endofvla-get-activedocument

*modelspace＊（vla—get-ModelSpace*thisdrawing*)

）;_endofsetq

(setqspline-list（get—spline)）

（setqi（—1））

(ifspline—list

(progn

(setqmsg\nNumberofsegments100〉：)

（initget6)

(setqnum（getintmsg)）

（if(or（=num100）（=numnil）)

(setqnum100）

）；_endofif

(repeat(lengthspline-list）

(setqsplobj（nth(setqi（1+i）)spline—list))

(convert-splinesplobjnum)

）；_endofrepeat

);_endofprogn

）；_endofif

)；_endofspline—to-pline

(defunget—spline（/spl—listobjsplineno—enti）

(setq spl—listnil

obj nil

spline AcDbSpline

selsets （vla-get-selectionsets＊thisdrawing*）

ss1 （vlax-make—variant”ss1”）

）；_endofsetq

(if(=（vla-get—countselsets)0）

(setqssobj（vla—addselsetsss1))

);_endofif

(vla—clearssobj）

（setqno—ent1)

(whileno-ent

（prompt\nSelectsplines：”)

(vla—Selectonscreenssobj)

(if (（vla-get—countssobj）0)

(progn

（setqno—entnil）

（setqi(-1))

（repeat (vla-get—countssobj）

(setq

obj (vla-itemssobj

(vlax—make-variant（setqi(1+i）)）

);_endofvla—item

);_endofsetq

（cond

（（=(vlax-get—propertyobjObjectName）spline)

（setqspl-list

(appendspl—list(listobj))

）;_endofsetq

)

）;_end-ofcond

);_endofrepeat

）;_endofprogn

(prompt”\nNoentitiesselected，tryagain.”）

)；_endofif

（if （and（=nilno-ent)(=nilspl—list））

（progn

（setqno—ent1）

(prompt”\nNosplinesselected。）

(quit）

）;_endofprogn

)；_endofif

）;_endofwhile

(vla—delete(vla-itemselse