带锥形端的双偏移
你好我需要将一条多段线偏移到两侧，但两侧都有一个锥形端。
最后，它必须是闭合多段线。
用LISP可以吗？
格里茨
https://www.cadtutor.net/forum/image/jpeg;base64，/9j/4RQZRXHPZGAATU0Akgaaagadweaaaamaaabb0eaaaebaaaaabbaaaaecaaaaaaaawgegaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaagaga9Wiendichxaw5kb3dzkqaymde4ojazojaxide1oji2oja1afnjag1pzhqgry4gkedlcmjlbikauwbJaggabqbpagqadaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa mqaaaaaaaaabdaymjgqawaaaaaaaaaaaaaaccaqbacaaaaaaacdqskqacaaaaaaaaazi3aacgaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaab3qhaahaaaidaaace4aaaaaaamjaxodwmzowmsaxntoxnjo1maaymde4ojazoside1oje2ojuwabzqaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaq00aav/uaa5bzg9izqbkgaaaah/2wceaawicagjccqwrcwolerupdawpfrgtexutexgrdawmdawmmeqwmdawmDawmdawmdawmdawmdawmdawmdawmdawmdawmdawmdawmdawmdawmdawmdawmdawmdawmdawmdawmdawmdawmdawmdawmdawmdawmdawmdawmdawmdawmdawmdawmdawmdawmdawmdawmdawmdp/aabeiafkaombigaceqedeqeh/3QAEAAr/xAE/aaabbqebaqebaqebaqaaaaaaaaaaaaaaaegbwgjcgsbaefaqebaqebaaaaaaaaaaaaaaaaaagagemebqychakqaaqqbawieaguhbggfwzaqaeqmeiqmeiqmeiqreiqrixbufryrmixbybheybhsrobfciqvimzrygtfdbywsu/dh8wnznraiseommrjnuzexco3q2f9jv4mxys4td03xj80ynlksftjxe1ot0pbxf1ex1vmz2hpamtsbw5vy3r1dnd4eXp7fH1+F3Eqacagecbaqdbaugbwcgbtubaairayexegrbuwfxihmfmogrfkgxqipbuthymri4xckckntfwntwnzpelbhaisomhjx0kstvkmxzevvnnrl4vkzhmptdepzrpskvxntk9kw1xdxl9vzmdoawprbg1ub2jzdhv2d3h5ent8f/2gAMAwEAAhEDEQA/apvukkklkq7xwbmridngxsj9ohu7t/koiDUTZY95aW7fYAY8Zc72l30/ykplb9jm4eld/AN9dH/f1Jj2WMD2Hc1wlpHBChc4kFjedJ+zhrvkoavtaoaiea4sszsssqpmu6ssmp1iedmy5m/obP+pcraq9TAHTMuP9DZ/wbs5wklkssssupv3x2c8mdzyxbned73wbv3f8AB/11YVRLVBSR1WIHSSCRI/ltHsf9Kt3uSSG0HA8EJ1WZ03AZaLWY9bbGnc1waJBI2z/AJRVZSQPJJJJJT//Q9VSSSSUXE9TBHPEYA0FZIEWGZDXU0ES93IH7ZVC7+YOA17S14DMU0LSJBCRPXVVL9LTLYJYNRTP3NET7M/u+xySkgZ72MMu2y9zv5R9o/7+p1fzbe2gVet2WCbC1r2l5ktkOLGhzW7K3e1rvU/wCE+GRFZV7YN7YNR jmlhgiwjq8jtuklqo6xhg3niwux3bh+whs7mV/zz9tH0rW/4X/z3Yq9H1m6VedjTa22Hn0n1WMdtYHWb3b2DY17G+zerR6cS6w/ar9thj2b4dsxms9hh6rm3z2ep6fpvqkol9qrdut6pfd7xndsypokjayx22v6df8A21/wX856iQxH1n6PuDHWva8yNnpvJ3D8wGtr2WfR9vpOsY9XMLqOHnte7Ff6gqcGvO1zYJa2z/CNbu9j2qkzo2cwt/YTLFRQAQRWDO9VUF78/9I7/S/wCFV/Dx7seosuyH5Ti4uD7A0EA8Vt9NrfYz83d+kSUw6p/ybl/8TZ/1LLAVQN/ACbl/WDE2F8AUPJSKKKKKKKKKKKKKKKKKKKKVFHIDOP8A2VYVA1PRT3D N76J+7/ADnf+DF8GKKNLJM0HZQ4CHUJ0KSSSU/wD/0fVUlSOT1IROGzXT+eH/AKTTHL6k0tBw2DcYH6Yc8/6NGLW3xODWLX4AKQBMUN3CT/KcY/6tyqPyOpEhpw2iTP88O2sfzac39TJafsbYBn+eH/pJKlW2ntisVjWYZr4fnf9FEVE3dSLg77GzTj9MO//AFpP9o6n/wBw2f8Abw/9JpUq26kqX2jqf/cNn/bw/wDSaX2jqf8A3DZ/28P/AEMLSLQSPFAOP/9w2f9vD/0ml9o6n/3DZ/28P8A0mlSrZ9U/wCTcv8A4mz/AKlytLJ6jk556dk78VrWek8OcLZgQWuO30/DTWSGLSSSLKFRN7CIKJUT+T+FTS19SUG038SJZ Nucefp8u9hva1prtdm9zi+P/nTv/BbFYa4OaHDg6hJJXSSSSQ//9L1N7Q9pae/fw81GPVrLX6OGhjs4e4O/wC/oiG72PDhw7R3x/MP/fUk+ChNtWvsf38nBSY7c2Yg9x4EcqJGy3cB7bNHeRH0Xf2vof8AbaTnCt+5xhjuSeAR/wCSSUkSUK7GWNLmGQCWntqDtdyppIUkkkkpSi4E8GP4qSZJTndRrczpGZueXfo7OdOxH/nK0ln9XDa+lzbgdq0vopj7qtbhojqpjjbkkkklmlwb2er7a9/L+19FDx38sPxBP4/8AkkdVrWmuwPbwTPz/APOnf+c3jjjdzstnhwu6sh//t9vtoahnltqdou6ssmq519rjq1oholbxpdhqf9rbt3/AMrb/wbuqnekza620erknudc4gac4 F7BDHSZ9BNS+g7+d9P/CK05m6CDDhwf8AX81D3Q8PLYJhljZ452P/AKu7/X2JJ8VOIqs9QmK3j3k8Age15/RN9V8A22IGGIRQDWUMMBZR6HORTPY9QEL5CYHFTADRX5J/WAL9JJJJJSKKlOf1v/AJNyv+JetBUOtg/s3kmaei9x0eiuqkkkkksssupqtzvyrentp+v5ymkkkpr47+WGfETz/q76X9f1VYVPKpc14uDnhgI3NZpBJ/nXbRve1m7ds+h9nwaxpdu0vepj3aqghlqfzf3ukl/9t1vjjjjjslcyspb8yinyplt/JU0klBr1WvAdXscXtdGvB0B3+p9Hbqp11OFjrXO9zgAWj6Ok/8at9300vjrukkssssmn1 N/krL/wCJf+RXFT6z/wAlZf8AxL/YK4J0R1UKKKGLSSSLJJJJJKKKKP//Z/+0RTLBOB3RVC2HVCCAZLJAAOEJTQQQEAAAAAAABEHAAAMBJUCCAGAAAGAAHAJQABNTY2HTAWR0IECUICHHZXJIZW4PHai3aagymde4mdmwmrwcpaalmtuxnjuwkzawmda4qklnbcuaaaaabdolflmzp5xapf//a0obw7vboejjq6aaaaaaaaaaaaaaaaaaaaaaaaaatwcmlude91dhb1daaaaaaaaaaaaaaauhn0u2jvb2wbaaaaeludgvlbvvvtaaaaeludguaaaq2xybq2bqaaaaa9wcmludfnpehrlzw5caxrib29aaaaaatwcmludytmftzvrfqaacafafafuarabuabuaemaqatafmaqaqwbafaalqamqaqaqaqaqaqaqaqaqaqaqaqaqaBCAEYABWBSAGWABWB3AC0ATQBLAAAAAAPCHJPBNRQCM9VZLNLDHVWT2JQYWAAAWAUABYAG8ABWBMACAAUWBLAHQADQBWAAAAKCHJVB2ZTZXR1Caaaaaaaaaqmx0bmvud00aaaamynvphrpblbyb29maaacxbyb29mq01zswa4qklnbdsaaaaaai0aaaaqaaaaaaaaaaaaanbyw50t3v0chv0t3b0aw9ucwaaabcaaaq3b2waaaansynjib29saaabsz3nym9vbaaaaaq3juqjvb2waaaaaaaanuenudenib29saaaaq3juquq2jvb2waaaabymxzym9vbaaaaaaatmd0dmjvb2waaaaaaaaevtb9saaabjbnrybnryb29saaabj YM9VBaaaaaqmnrz09iammaaaaaaaukdcqwaaaaaaaumqgigrvdwjab+aaaaaaaaaaaaaaaaaa bhcm4gzg91ykbv4aaaaaaaaaaaaaaaaaejsicbkb3viQG/GAAAAAQNJKVFVU Yes it's possible. Question:
Answer: How I'd approach it:
[*]Divide one of the curves into n-segments (construct a point list )
[*]For that point list, construct a paralel pointlist , by projecting on the second curve
[*]Find mids from these pL1, and pL2 - construct new point list of middles
[*]Entmake a pline/spline for mL - which will result the interpolated curve
[*]Prompt for the 'Y' value (in the picture)
[*]Find the tangent angles from the starting and ending point of the interpolated curve, use polar and re-append the extended points to the mL
[*]Well, having all the required points - one will know what to do next.
I'd use a combination of this and this (without the hatch).
Ah, I wasn't aware of that, so I tried something similar. My $0.05 take a starting pline of total length required. Get end points. Trim pline the y length both ends. Do left and right offsets. Add to 1 pline offset start pt join other offset pline repeat endpt joining the bits as you go. Redo original pline by reseting endpoints. This should work with curved ends as well using pointatdist. Thanx people, this will help me along the way! Give this a try
; taper ends on a line arc or pline; by Alan H March 2018(defun alg-ang (object pnt)(angle '(0. 0. 0.)(vlax-curve-getfirstderiv obj(vlax-curve-getparamatpoint object pnt ) )))(defun c:AHtaper ( / oldsnap y off len obj stpt endpt pt1 pt2 pt3 pt4 L1 L2 O1 O2) (setq oldsnap (getvar 'osmode)); (set y (getreal "Enter end distance"));(setq off (getreal ("Enter Offset")); remove next 4 lines if no getvals3.lsp(if (not AH:getval2)(Load "getvals3"))(ah:getval2 "Enter end distance " 9 8 "50" "Enter offset" 9 8 "20")(setq y (atof val1))(setq off (atof val2))(setvar 'osmode 0)(setq ent (entsel))(setq obj (vlax-ename->vla-object (car ent)))(setq stpt (vlax-curve-getstartpoint obj))(setq endpt (vlax-curve-getendpoint obj))(if (= (vla-get-objectname obj) "AcDbArc")(setq len (vla-get-arclength obj))(setq len (vla-get-length obj)))(setq pt1 (vlax-curve-getpointatdist obj y))(setq pt2 (vlax-curve-getpointatdist obj (- len y)))(setq ang (alg-ang obj pt1))(setq pt3 (polar pt1 (+ ang 1.5707) (* 2.0 off)))(setq pt4 (polar pt1 (- ang 1.5707)(* 2.0 off)))(command "Line" pt3 pt4 "")(setq L1 (entlast))(setq ang2 (alg-ang obj pt2))(setq pt3 (polar pt2 (+ ang2 1.5707) (* 2.0 off)))(setq pt4 (polar pt2 (- ang2 1.5707)(* 2.0 off)))(command "Line" pt3 pt4 "")(setq L2 (entlast))(command "offset" off ent pt3 "")(setq O1 (vlax-ename->vla-object(entlast)))(setq stpt2 (vlax-curve-getstartpointO1))(setq endpt2 (vlax-curve-getendpointO1))(command "trim" L1 "" stpt2 "")(command "trim" L2 "" endpt2 "")(setq obj2 (entlast))(setq stpt2 (vlax-curve-getstartpoint (vlax-ename->vla-object obj2)))(setq endpt2 (vlax-curve-getendpoint (vlax-ename->vla-object obj2)))(command "offset" off ent pt4 "")(setq O2 (vlax-ename->vla-object(entlast)))(setq stpt3 (vlax-curve-getstartpointO2))(setq endpt3 (vlax-curve-getendpointO2))(command "trim" L1 "" stpt3 "")(command "trim" L2 "" endpt3 "")(command "erase" L1 L2 "")(setq obj3 (entlast))(setq stpt3 (vlax-curve-getstartpoint (vlax-ename->vla-object obj3)))(setq endpt3 (vlax-curve-getendpoint (vlax-ename->vla-object obj3)))(command "pline" stpt2 stpt stpt3 "")(setq obj4 (entlast))(command "pline" endpt2 endpt endpt3 "")(command "pedit" "L" "j" obj2 obj4 obj3 "" "")(princ)); taper ends on a line arc or pline; by Alan H March 2018(defun alg-ang (object pnt)(angle '(0. 0. 0.)(vlax-curve-getfirstderiv obj(vlax-curve-getparamatpoint object pnt ) )))(defun c:AHtaper ( / oldsnap y off len obj stpt endpt pt1 pt2 pt3 pt4 L1 L2 O1 O2) (setq oldsnap (getvar 'osmode)); (set y (getreal "Enter end distance"));(setq off (getreal ("Enter Offset")); remove next 4 lines if no getvals3.lsp(if (not AH:getval2)(Load "getvals3"))(ah:getval2 "Enter end distance " 9 8 "50" "Enter offset" 9 8 "20")(setq y (atof val1))(setq off (atof val2))(setvar 'osmode 0)(setq ent (entsel))(setq obj (vlax-ename->vla-object (car ent)))(setq stpt (vlax-curve-getstartpoint obj))(setq endpt (vlax-curve-getendpoint obj))(if (= (vla-get-objectname obj) "AcDbArc")(setq len (vla-get-arclength obj))(setq len (vla-get-length obj)))(setq pt1 (vlax-curve-getpointatdist obj y))(setq pt2 (vlax-curve-getpointatdist obj (- len y)))(setq ang (alg-ang obj pt1))(setq pt3 (polar pt1 (+ ang 1.5707) (* 2.0 off)))(setq pt4 (polar pt1 (- ang 1.5707)(* 2.0 off)))(command "Line" pt3 pt4 "")(setq L1 (entlast))(setq ang2 (alg-ang obj pt2))(setq pt3 (polar pt2 (+ ang2 1.5707) (* 2.0 off)))(setq pt4 (polar pt2 (- ang2 1.5707)(* 2.0 off)))(command "Line" pt3 pt4 "")(setq L2 (entlast))(command "offset" off ent pt3 "")(setq O1 (vlax-ename->vla-object(entlast)))(setq stpt2 (vlax-curve-getstartpointO1))(setq endpt2 (vlax-curve-getendpointO1))(command "trim" L1 "" stpt2 "")(command "trim" L2 "" endpt2 "")(setq obj2 (entlast))(setq stpt2 (vlax-curve-getstartpoint (vlax-ename->vla-object obj2)))(setq endpt2 (vlax-curve-getendpoint (vlax-ename->vla-object obj2)))(command "offset" off ent pt4 "")(setq O2 (vlax-ename->vla-object(entlast)))(setq stpt3 (vlax-curve-getstartpointO2))(setq endpt3 (vlax-curve-getendpointO2))(command "trim" L1 "" stpt3 "")(command "trim" L2 "" endpt3 "")(command "erase" L1 L2 "")(setq obj3 (entlast))(setq stpt3 (vlax-curve-getstartpoint (vlax-ename->vla-object obj3)))(setq endpt3 (vlax-curve-getendpoint (vlax-ename->vla-object obj3)))(command "pline" stpt2 stpt stpt3 "")(setq obj4 (entlast))(command "pline" endpt2 endpt endpt3 "")(command "pedit" "L" "j" obj2 obj4 obj3 "" "")(princ)) gsc did you have a look ? It could workwith singles lines as well with a simple mod of check if line .
页:
[1]
2