需要帮助插入“甜甜圈”

tmelancon · 发表于 2022-7-5 23:20:45

基本上，我们有一个例程，它列出了一组线的几何图形，它要求一个原点（基点）以及方向（我们在等轴测中设计）。。我需要帮助编辑例程，以便在例程绘制的基点插入实心甜甜圈。这是例行程序。

(defun c:SOCKET (/ test oldsnap oldorth p1 p2 xp1 xp2 yp1 yp2)
(setvar "cmdecho" 0) (command "undo" "m")
(defun drawsock (/ e1)
(command "._pline" p3 "w" "0.0" "0.0" p4 p5 p6 "") (setq e1 (entlast))
(setq sockgrp (ssget "l"))
(prin1))
(defun one () (drawsock) (prin1))
(defun two () (drawsock)
(command "._rotate" sockgrp "" p1 "180.0") (prin1))
(defun three (/ px) (drawsock)
(setq px (make_pt p1 (dtr 90.0) 0.1))
(command "._mirror" sockgrp "" p1 px "y")
(command "._rotate" sockgrp "" p1 "180.0") (prin1))
(defun four (/ px) (drawsock)
(setq px (make_pt p1 (dtr 90.0) 0.1))
(command "._mirror" sockgrp "" p1 px "y") (prin1))
(defun five (/ px) (drawsock)
(setq px (make_pt p1 (dtr 90.0) 0.1))
(command "._mirror" sockgrp "" p1 px "y")
(command "._rotate" sockgrp "" p1 "60.0") (prin1))
(defun six () (drawsock)
(command "._rotate" sockgrp "" p1 "300.0") (prin1))
(defun seven () (drawsock)
(command "._rotate" sockgrp "" p1 "120.0") (prin1))
(defun eight (/ px) (drawsock)
(setq px (make_pt p1 (dtr 90.0) 0.1))
(command "._mirror" sockgrp "" p1 px "y")
(command "._rotate" sockgrp "" p1 "240.0") (prin1))
(defun nine (/ px) (drawsock)
(setq px (make_pt p1 (dtr 90.0) 0.1))
(command "._mirror" sockgrp "" p1 px "y")
(command "._rotate" sockgrp "" p1 "120.0") (prin1))
(defun ten (/ px) (drawsock)
(setq px (make_pt p1 (dtr 90.0) 0.1))
(command "._mirror" sockgrp "" p1 px "y")
(command "._rotate" sockgrp "" p1 "300.0") (prin1))
(defun eleven () (drawsock)
(command "._rotate" sockgrp "" p1 "240.0") (prin1))
(defun twelve () (drawsock)
(command "._rotate" sockgrp "" p1 "60.0") (prin1))
(defun right ()
(if (and (< xp1 xp2) (< yp1 yp2)) (three))
(if (and (> xp1 xp2) (> yp1 yp2)) (four))
(if (and (= xp1 xp2) (> yp1 yp2)) (six))
(if (and (= xp1 xp2) (< yp1 yp2)) (seven))
(prin1))
(defun top ()
(if (and (< xp1 xp2) (> yp1 yp2)) (nine))
(if (and (> xp1 xp2) (< yp1 yp2)) (ten))
(if (and (> xp1 xp2) (> yp1 yp2)) (eleven))
(if (and (< xp1 xp2) (< yp1 yp2)) (twelve))
(prin1))
(defun left ()
(if (and (< xp1 xp2) (> yp1 yp2)) (one))
(if (and (> xp1 xp2) (< yp1 yp2)) (two))
(if (and (= xp1 xp2) (> yp1 yp2)) (five))
(if (and (= xp1 xp2) (< yp1 yp2)) (eight))
(prin1))
(defun setpnts (/ p3 p4 p5 p6)
(setq p3 (make_pt p1 (dtr 49.10660529) 0.08267973))
(setq p4 (make_pt p1 (dtr 90.0) 0.09375))
(setq p5 (make_pt p1 (dtr 270.0) 0.09375))
(setq p6 (make_pt p1 (dtr 293.41322449) 0.13621559))
(if (= test 0) (left)) (if (= test 1) (top)) (if (= test 2) (right))
(prin1))
(setq oldsnap (getvar "snapstyl")) (setvar "snapstyl" 1)
(setq oldorth (getvar "orthomode")) (setvar "orthomode" 1)
(setq p1 (getpoint "\nOrigin point: "))
(initget 32) (setq p2 (getpoint p1 "\nDirection of line: "))
(setq test (getvar "snapisopair")) (setq headtype 1)
(setq xp1 (car p1)) (setq xp2 (car p2))
(setq yp1 (cadr p1)) (setq yp2 (cadr p2))
(setpnts)
(setvar "snapstyl" oldsnap) (setvar "orthomode" oldorth) (prin1))

下面是我们使用的甜甜圈命令和大小。

copy


(command "donut" "0" ".0670"))

我想把油炸圈饼放在正在绘制的对象的基点上。请帮忙，我会很感激的。稍后将发布快照。

tmelancon · 发表于 2022-7-6 00:10:49

7699[img]https://www.cadtutor.net/forum/image/png;base64，Ivborw0kgoaaaansuheugaaa8saaaqcaaacctfuzaaaaq8eleqvr4no3yuxbbshydqo9/05qPnJdkHJumJEq46K5aAdV9CED8+aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGTAQDGGJ5DAWDANWXRAAAC4HM0NAACXSA0BAOAPL0DAMA1BGSAALIGBQ0AAJEXRQEA4BO+XQMAWDVSAWAUIZTDQAAL7GTAQDGGJ5DAWDanwxrapibpggrosq0b4afkejhpxadaedsaoe9iamartqmcjzea4aeaejjtggaahl4dxxbhbgvgpikbaec0jxcexacai5osuiveaijmhi4zx9yadiikyhzjayahnguwhksawcoaerglhidai5osua8f8gb4iimbm6tgabwrfmc50kmadiyg7sawaokipg8iqeai5osoe9iamartqmcjzea4imb4imqdikyezvohhacoaergbaec0jxcexacai5osuiveaibv2dba2dboxyqgabxrk8b8b8 5Tjuahnguwhksawcoaerglhidal5lwwmpkbsa8dudctxgegdazz5da88qiadwh20npe+mamdh20nxeeyaa6bk4kugdymk/xwowkgccbsq2bf5etagzhtgzessiasbfnb7yanafgffz5da+8agbyn20nvjpaawbltjxwfmihgdxz1kck8afgqeoncbjbaczfp2sgtgobsajbghcfgfqz7ygrpfiahtzma0cgmabcommeyuadbnkwhtycuauumkyybq5bea3tqzmi5ca6kbjgggnkednbkwjvwcojsma6arswb002tanhigg6adjglglglglglglgqmaauqran00gtcoxaoimyyb5bia3tqzmi1cqcqcbjgomkusadnnkwdrycybumbum Gyri4b0e2tadpijqc6atjggrkeqddnbkwjlwdopsmaaeqsan00gtcnxakgmyydppflahttzma0cgmabpommeyuadbnkwhtycuumkyybq5bea3tqzmi5ca6kbjgggnkegddnbkwjvwcojsma6arswb002tanhigg6adjhglglghqtzmb08glalppmmauqran00gtcoxaoimyybp5bia3tqzmi1caqcbjgomkusadnnkwdrycbumgyri4b0e2tadpiqc6atjggkeqddnbkwjlwdopsmaaeqsan00gtcnxakgmyydppflahtzma0cgmabcommeyuadbnkwhtycuumkyybq5bea3tqzmi5ca6kbjgggnkegddnbkwjvwcojsma6arswb002tanjijjjjjjjjjj GG6ADJHGLGHQTZMB08GLALPPMMAAUQRAN00GTCOXAOIMYBP5BIA3TQZMI1CAQCBJGOMKUSADNNKWDRYCYBUMGYRI4B0E2TADPIJQC6atjggrkeqddnbkwjlwdopsmaaqsan00gtcnxakgmyydppflahttzmact7+knwUAHqXGgDe7PS39CwDgkK4C3uP5YW1qA9BBRQEv9YphbWoDMJpmAl7hPcPa1AZgIoUEXCg1rP+VPgkANqaHgKukR/vn6fmayfdkcheeksfsz8naptrp8ct0hp6z+kTAmAzugd4WHo53yd9WgBsQ+saj0kp5kekwyapagc4ahpqfy49mkbsaf9wlvzc5fajamaydz0spz0spz0 4SUMZGBDAGY4KT2JR5C+UQAWPWWOAM9JJ+FXS5wrAihQM8KP0DH6t9OkCsBztAhxLD+B3SJ8AGTRLCCB9PR9N/RJA7AQvQIcSO/E90MFNAAL0SVAD9KJ993S5 W3AKPQK8KX03M1InzoAS9AowL/SQzcpffYA9FMnwL/skzcpffya9fmnwcfppizuxvgeayuks4g/pcTtF+h4AaKZIgL+ll+0g6asAoJYWAX5Lb9pZ0rcBQC0tAvySHrQTpe8EgE4qBPglvWYnSt8JAJ1UCPBhXn8vfTMAFNIfwIeF/b30zqqbqsh8ahxb299i3a0ah/QGkR+x06fsboi3yanildr0/qdqqqnna5tlztup6lgcoojlgc+nt2if9swbu0ryf0ry WUFR27ZC+JQCQAA7YWXQ41KHFFABVNAFSLD1CM6TvCoaeng2LL6TTDJ3BUAPTQE7S6/WJum7AqCH2oBtpSdrn/SNAVBCZ8C20nu1T/rGACihM2Bb6b3aJ31jAJTQGbCt9F7tk74xAEroDNhWeq/2SD8yacv0bmwrvvf7pg8mgbi6a7av3qt90jcgqamdadk79u+6RsDoITOgG2l92qf9I0BUEJnwLbSe7VP+syakkezyfvpdonfwmalnazsk30xu2tvjeasugm2fz6r/zj3xgajqgbcu9v/ukbwyAEjoDtpXeq33SNwZACZ0B20rv1T7pGwOghM6AbaX3ap/0jqfqmfattj7tu/6xgAooTNgW+m92id9YwCU0Bmws/RkbZK+kwb6qa3ywyww xq1nknffqa91absll1am6tvcoaeagn2ll6ttdj3buaptqgbsw/XDulbAqCK5oDNpbdrh/QtAVBFc8Dm0tu1Q/qwakiiowbz6e1aih1falrrrrhkb6wu6xvh8a2igpil1gp0vfdwtlawwwr/L30zABTSH8CHhf299M0AUEh/AL+kp+XE6TSBOJMKAX5JR9MJ0NCCQCVAVYSXRPJPC8EGFPABPGTVWLNSD8GALW0CPC39KWDJH0VANTSISDF0RN2IVQ9ANBKQCFPMDTXVOGACINS4B/pSduUvrsAeinToB/PVDUUVRSAAEINTOAVYDURVRUAVICRGG+k56775Y+BWWOVSAA+nR+z7pkwZgIXoFOJDeve+TPMKAFQJGGPP6FSO6TMGYC2QBFHREGC/Vvp0AViOdgHOSM/gV0mfKwArUjDASekxfL30iQKwKB0D3CW9iq+RPkUAlqZpgHul5/gz0uchwoqdfca9eh+XPrkANiAvgEek57Kj0ifGQB7UDnAM9Kb+az0OQGwE8UDPCk9nn+WPiEANqN7gEukV/TX0qcCwJY0EHCh9KL+I30SAGXMDWGXS60B2JO2AL7ETGZGGGUZOJAORGOCN6CFGNQXRANANQIAUQXQANSKTYBQ5BEA3TQZMI5CA6KBJGGGNKEGDDNBKWJVWCOJSMA6ARSWB002TANHIGGG6ADJHGLGHQTZMB08 GLALPPMMAAUQRAN00GTCOXAOIMYBP5BIA3TQZMI1CAQCBJGOMKUSADNNKWDRYCYBUMGY4B0E2TADPIQC6ATJGGRKEQDDNBKWJLWDOPSMAAEQSAN 00GTCnxakgmyydppflahttzma0cgmabcommeyuadbnkwhtycuauumkyybq5bea3tqzmi5ca6kbjgggnkegddnbkwjvwcojsma6arswb002tanhigg6adjglghqtzMB08glalppmmaauqran00gtcoxaoimyyb5bia3tqzmi1caqcbjgomkusadnnkwdrycybungyryri4b0e2tadpijqc6atjggrkeqddnbkwjlwdopsmaaeqsan00gtdnnrm0568gwjnmb6bzlzdut9tupxlgcwidmgaffxlktadyk3ifpdsgl2xpgzsiemgb5xfr+bwlstad0yycsz5da2xb1gptljxariq+mm1iuwrba2xh7gptrlk/0WAM6S/sA0a+SST9cA+1iawdtdt9ca Tuwrba+Xodqdt9oasbq3ax0dzkwgrks2l0scg4hqazimlpd8ugbg/2gfyjqixlktaficbgcmqgl2xqab2kiyjr5utt/cqfi0hpannzyadrah6mkobpzuasbQ3AWdsWxrY/HOab9nra1gDcZ8PaUJYw3Kg3dNTDANBhq/kwrahckpduigdwoe36q1nckfjbkjeaemoolbldb4svbn9z2xqac6zdcosgqvew3ebwdvwbrtbgnq9/+wvgabcaclswfjht7e+Qrb1gBcb7FqUZawgLe9xeICgJdYpmBsa1jGG95liQHACy3QMZoSFvPSN1piAPBy7U3T/vzav170xtvwalxjbos1jvk15tcqha+zs2jm0na7v2bzczcyalka XBV/FoStjBVa+5xAAgo6h+ih4VeMbzL7ttDUBSRQkpS9jKk++7uaagbhgv2dawoyffeokbwait22jyswgv88c7b1sdmmjtlkwslo7xn9xaca405pjwqlnq0bcaddrnh6yryfzksbxABgriEVNeQxgAmOA8G2BmC6eFEpS+ct7zjbxadqivhyhl40pfjic4aqbepldsaopaphyqgagxe31uaejj2oyvsawaqvbo9lcvwxu0/6QcBgIe8p8OUJXCeuACg26ubzLYGAGAvL52/tjuiant50qj26roage1vontawaatnbtgrataqdy3vwb2kdraad4+lhiydvwaadwxzpj2lygaidhp7itjuaahhghgzuaahzrq1swwmawa9olmbbggaatjmzm21raaa463G9+3QNAAD3+W5A29YAAPCIL2e0bQ0AAA/6NKZ9UGYAGKF83TO2NQAAAXOD2/SDAADAEMXRAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaw8t+qwwwwwwwwwww

hmsilva · 发表于 2022-7-6 00:46:14

也许是这样。

copy


(setq p1 (getpoint "\nOrigin point: "))
(command "_.donut" "0" ".0670" "_none" p1 "")
(initget 32) (setq p2 (getpoint p1 "\nDirection of line: "))

HTH公司
亨里克

[编程交流] 需要帮助插入“甜甜圈”

发表回复

精选推荐