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

(完整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"\nNumberofsegments<100〉：")
（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—propertyobj"ObjectName"）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-itemselsets0)）
spl—list
）;_endofget—spline

(defunconvert—spline（splobjn/i）
（setq point—listnil
2Dpoint—listnil
z—list nil
spl-lyr (vlax—get—propertysplobj'Layer)
startSpline(vlax—curve—getStartParamsplobj)
endSpline(vlax-curve—getEndParamsplobj)
i （-1）
）;_endofsetq
（repeat(+n1）
(setqi（1+i））
(setqp（vlax-curve-getPointAtParam
splobj
（*i
(/(—endsplinestartspline