帮助设置一对clea
大家好。。董事会的新成员,我的第一个职位。我正在清理一些绘图(有时一次100或150),并试图建立一对LISP例程来提供帮助。有谁能帮助创建一个将length命令与总距离30结合在一起的例程吗。此外,拉长,直接到动态设置。第二种方法是将“圆”命令与半径为30的命令相结合,然后能够将对象修剪到新创建的圆。每个命令只有几个击键,但当我必须为每个图形x 100或150个图形执行4或5次时,只需击一次键就可以节省大量时间。我不熟悉编写/编辑LISP例程,因此如果有任何帮助,我将不胜感激。 更好地解释你想要达到的目标,也许是在绘画之前和之后。如果试图更改许多图形中的对象,则可以在不使用odbx打开它们的情况下执行此操作。如果您正在更改许多不同的内容,那么只需使用entmod和while循环就可以找到更好的解决方案。
使用Tapatalk从my Pixel XL发送
我需要展示相邻地块的30英尺。我可以用“长度”来计算,然后用30来计算“总数”。在没有30’切线或圆弧的物体上,我必须使用“圆”然后“修剪”得到30。我试图绕过额外的步骤,并有一个lisp例程结合一些现有的例程。Tks,芯片
https://www.cadtutor.net/forum/image/png;base64,Ivborw0kgoaaaansuheugaaatwaaaiwcaaaaa6tsvhaaagaeleqvr4no3dw3qjvbkfyc/H42E+jIfxeD7kwg7mIDAHCa2q+t5nX+y/052uwbireohhdda7r6pr+0siifpbacgakijlvhmaaaaaqijj8eakacqgmw+ewacoglgcjzwqaajccczb4taaa6icxyipbacgzvhaaadqijrgg8eakaoqglm+eaaaooglgcgdwqaa5ccwb4qaaa6icuyiy PBACGDKijzvhaaadqijrghg8eakaacgng+dqaakohlgcmtwmaobpccb4naaaqiguyixpawcggijxvg0aacqizrgje8dakaaqgng+dqaakohlgcmtwmaobpccb4naaaaikxymbhaqbqe6eeaz4kaicAccuy8feaanrenrekmgajwiaoczccqz8faaanrfkmocjaacoiccar8faebnhbim+cgaagiolgdarweaubm5bg98dgaalrfk8mbnaabqgaeeb3woaacveurwxucaafazoqrvfa4aajursvdg5waaubmhbg98dgaalrfk8mbnabqgaeeb3woaacveurwxucaafafuq9oqaoigp5qagbqqqqchtygbagglkanlabqabbk0bkkaakcxuaawaewseegcaakijejaja eaboqq9oqaiijcaj4baaajhblwcqaascucge8aaeacoqr8agaaeggl4bmaajbakagfacabeij+aqaacqssanaaggvacpgeaaabxkkuA4/Qaafyss4dj9aavhjlgop0aabwekua4/Qaafyss4dj9aavhjlgop0aabwekua4/Qaafyss4dj9aavhjlgop0aabwekua4/Qaaiessydj3aaahhjliopcaacgeksg49waaiyssydj3aahjliopcaacg49waaiyssydj3aahjliopcaacgeksg49waalessdjaathjwopeaac2ekra48qaalysissdjaathjkwopeaac2ekra48qaalysisssdjaathjkwopeac2ekra48z7rsqeyxfa VE2FDM3O1AKMYVMILIRHTGR8AAV/t8tq/aVQCrGL5i4qx7Rq/Gmq55PJru0F9/PB6pf/Nqn49d+ebVNlt/rWuGb/PjbyIEhq+YOoue0auxzmcobxpx1ltjwlk1go8ebxp2vdt36hpun8tetf8xcrz94xejtu7qsk3kiwswidjp5k50xjimokeg+hBP8YvmLirHtGr8aaV/vcDiWf9JH6O10zDg27l29G6zNrP/Dz0378TYTA8BUTZ90zejXW/aglxbmsiavdl88ekp+/chvkdlywwtcyvikibipugb0aazzdyat97s0phbiuwve2fdoto2kjajyomk7eeepqbmnxtjx1vwt3+72vwt3 X+NEP2HRSJP0MJEKEKVU9NNXYNUIJSGL4C4PTL+n9gcjHev68LO8dsejWStqNE1yw/ecOzMvOP3t7bUgklOIjhKyBOuazx85KzAXr7LsQJejVSVnYZGT5W6f1JVh/GIZSgBIavgDjluobfVpcrNuvT63P0aiStpZLRx2z6VzZ3RSOUoASGr4A45brGyzT/v7i+/2t/JqFXA7CK4SsgTrmw+yozoyl1bnqf4b3dv0ccufo1qcmyvgkifpuhl0agfemxwfxyp2jvwmwiuerie65c/RqAHYxgkXD+xaolg3alkawadjfztgladjfcbyn51vbympndutjngrarjbbun51vzfcvxzxabb4jvrqare/fxgpxgvntxvnulxg6tj0c2yobg3akgfiu GF4IOFZRSVS1PTBHZW/EENO1ABOSUYOMYKFWSNWTZL0FMO6UJQAZEOPKERXB64HFXGYHA2MKO2VJNClaqjazilJV3ZPPVDAYVA2ULAZFOHWT3RPADP2ZPHZPYLXD6RWPQWTLDQCWSCHPWOo7kQWGf/b7PVAE2daXWq25NhNJfRnABVlebKXcSwITrO+xVPARx+/ot8dun2vqzhkd8vyfsco02zdfgdx9k8diclvhfhl/27zfejo4zcpe7fpuxvil9gcarrxkirmfue6bqwtnqrfr5zpvlfzwzqyg2bwtoorca5dohodccvg6zglj/xtp+fwjjidczawrxyzaz/fqpxe34qshqe8gcexdldiuo24bki0thawcbillkofmjuem9e1 L57dotmd2e8qi4xpvovcoltghn8wbyaedontamrjexacb1n14jv7mkngwk9gcaa/swyzqvonmcptajrho9h071ntm4t5nctayzzyiidcwjp06tfapdxd/B5PiUCT0ZwJvFLDKwWzl+4tSa8Zkq+fzX/1v6mmZ/okena8eznrpzctaejfezxhpltynl+Y7NGVCNwZicpNFBp7agjHOq775G4JPv6OPbgyE4i+LDFw2Cj2hxIRX23b9fzi59oI+ejLgnuMsMua+gTFxUg15tc+lmyrudhgwiysm4rq0fe5qlhrjwj8guymz0dobbcc1frox4ebmldiwueecubn+exScvDJmy+6MWCabBa5vyrBg4CLOKOmfB7E+tx9m8stq8mebgwypzz XF3OXD57GACEVNE5DKO/ffJLJ/QEE6COALBAMRPGSWWCTJTWHWK+9j4c+jBggngWWSssf8FdszEZLHh8cAWn04539kj2zoOv6aMbA7KMZpHxX8v8g7tme4la8Fj9spmzYjN3LiPbSCXvWRQmS+Deq+To7wcsz3owmf2tnbx4cyvdc3pjbvesncvycquse30yemuwg6aczsxxyim20p+IZWsMncuY/t/N3BiUO4aQgn8cxRKPE2NJL/JlX8+fuPXnmFN8DCu+39uklssyuheu/74fM8H5ePvhjHVB8G/nXN1fc/1eY7i4y/2+l/o71hblcoftyes5mwwlzgmnenojdis7gys8ey6mpanlqejl/tuX/4ap/zq/Wve0qu/lhbjjjjj dduelvpukmc8onehum+rt8P/PjPtz7w2n0Y+Pp+pk2mEYe3jOz//r//0nweJDUv0jXuVnCwirNo2uGd08bow1C3zN52freMNjWS/EF7/tqrfX5P6uQ/Vv/oyo+DOM5iXPRhKBtudRz93pyY2ldDFhn/xF1/b5w6fgnk0hqd4ghhuzcuoja0lvyq7fsqjxzzo2n7/lro/wz8flnrjvkzjnpl8qfae5haprhspqxe7hovswy10krwvywml5r5nftwisvw9lq7cx13ekq6mpo670taxds/oLssxMicIlP0mqsN2V7HjAZvQ9N2ZHdNqOczh/odgbuc36tawwap65g4imxblyxt+wv7nrd5vjear+4T04E+bOH7J6PL7/A+6yfrpr2Grn0r r0cm1k+5GsWNshV285lGuVDMTNepyKWDMycP+Q36952OjNs+3UTa3I6ZOMVC+XIXvJlC0u6UueJllo4LEMgebavI68ICUD/5keyqgq2het6+LJ3/+lnvsiiiewlx7awdeckpt1s5emzlfo23shmb9xefy/uyUNxhBLk9nv31X03sY5nth/Dr5Tl6v4nOwMhW9ge22XPvnq9pcpHqeuGj/7nM/5sX5//Tyrp+55QEh33lCCXfbuvHriJdfQNSw/xspd82ckosjh8yhj1lilr2wy/WdgW8C76J85FGehA0Pa/t1xpw5ilb3kyxz22tp0skgwh078mrzugpwhvcr/5lCegQ4MZUd2X1W4iVX5ki9b2EXjRpWbIFn7iYo+vWPIIqk3EYakfdpwF/uodfwf 0HD1+tehOr7CVfOSflck8WGf+4ct88g8ld3fd1AX3apw13Ue/AqG9l37Lju6/efxOr7CVftrASbm6s+FGDDO6DW8EFIH3ACCFXPOZA0JMIJ3DFVeumVTllVMXHRD3FXUUUJLPO+BDm65ww3U+7AqGEZKhLLMXtvXL1xJ4bTl/wbnssMmEXGbm575ENtF+cMH3RgTCWmRpYRZO+Nq7f8Ynjykj9sGNGWegAi5tTIEqEEP3HO8EUfxtQihCxTiczuq+EMRT6VJZE4Z1GWWSGFRZ8X和FX0YM4URDGLGW+7uq0MoGRo6+POAHTNGZAM2CLWRQFG3J5U0TVDFBVRXHVBXY6DLPITOQTBOGGYOA9JAHFCKJ02UGR6YBGJT2TOHXKMR4HL2ADZDGDMJNFS83WSTJNFS XG9/86YDP/9e9qHLHIOoeQfG6clyJ4tVCPch1HDcmrklq2eZC/5SOVZWE2UUU4UBSMLVX6J8QKIQ7C2CJAGQW6DGLC/5soWZw2TJ2KyD/U/TBc0m0qcqAsHeIlgSKis/NaKfRTRrM4pQMjF5rj79eu04tE+VO8m+IdhhBEuCS8rXe+XarGMFZ2oIIjfufKxK+TW5RCGB3MSV92SREZMZMHF8ZWZE+ZX5TOWBGR1FSCT4IHVJLY3MK0LJRPFMY/t8+QRKYUISPMSL1YBWZWCEZBAPADXMDRZOUEDCCELQZYKATQWHO1NYJSPFHMIZ3OKBWYYCVQ9CAW2ES9WUSBIIZ5L8Z2LC/7BJEIZIJB1KSRANE8MXL41VWYUSJE0QMT+ysssqhi9ax7bucw6vgsdckfmmxlqy9ecgzosdnz1wsyb3oq3uwqih9loizm0y3h+cdv7eeq7pgm4nuqc9tg5ccexsvt4r14yk7cms6blnhxml81fhrecdn1qwmgboblxe7kixaqhpp/mg6br33Ml5UPJ/KE872IJTHBEH66M1MTJ0U16GOIHFMNPUFJXBVTDVIVSC7HAOBI/kzy/2EB5KSUR5KGQQQ3GTNL/b5qXItxAP4tkqe3VPuOM+JqEJ0tu1jWJ/BFrt1fZcxNCvRWcA4+1CXdgFBEkiwwIJdUZCSX/v8+V/Lisp5IoSziK404chSdLhu1/Up/MIX9ZGESTSGUVRQZDE2A8V6W+grO8+7Tcak5yseae+1KA5AC5ACZREW9UMH6QE+a3YFf80KFXPSnRnJ/11HPYJJEg/RKYTOLJW0IXDV64TIMBRK2VWYFTZ+8XKpQ596zSsWrtDPIkVqm+wUHuweQmHCoWRtsXu21WtO728d84OpOB6FUnqy5N2frn+4NS9dOCFoFnlL3DL4ap9xfyuVoppLNpJrwfAQ9nOpODCFUjqUbPWoIx1K8xqG/UJnkY/0jVTcUyJCNZRs/WbHBvTZKY5Q0ZTPJWPzVZz9IV/zeoafZLNIX7a2xY0j6d89ySQq7v+U7vyJW8kj11w0/okovahceuglglfj28hp7nthqzhkjsoj+bhqwusddldlkoltyvlpjgbbtsg9lxcizem761+9bt3pqxn8yezijvazeotpmnsbqgmxcqqqq GKX72T9CCWT7L0JEVPROLIFdzyzDuebzz48jnmpq49werr48ar0zc2fvfpbiroh3fp54drrf4k9xezrhfisygsqfk8yvjq82ie3ldgwmousbzty48ar8t1vrn/fNEt4sqTve4WX+dppjypjwulv3AWcf7s7jyaF7+Y9KdGSn337Y1GuHHEOPVQUtn/p99vKrF1PjwrO1kyf/z3/EKotT7sjX4WKVvbz41GFm+y4cYRW7RXcKqZhBHXcyUGTkYQhUNJn+tTbaID+XM9I3ZS2WIEG0FMY7JKHMD7BFLD1UUT0Y45XPJZ530C+P2N3YLCBZX/BJ3BVRCDEO2KYZSPHYU4FIYFWDAEKC8GS/JHNIv0dtY3G//FyzO/7RV5Rv0FYZD0 ty1xdpfzwiunmccguipduyndoq759f0o+4XCfu+EHc0J0sWSr4sOCrFsS8ycklMZJGJyVOXw6O8Tcf9Ik783v5Lf7Jk/mgwi4WZKA6CkRUNJRnXRDUvn+aQRdZNn/xtmgcbjxdd3+yqxpyzll5vjmmsiobgt+wbN3VOXhp8I9ks0mvUNnm6IPEYMOwZ7S+z6+E/4VCytqXCylb0OEJ0WIzs3hUcXhp8q9rTD1ukauua/4/ikawMRd9Zrm+63JNKHFDNL7CX+F1KOKBCGN3HBJEGNVQEV9JGZTKV7RNJLJPNewXLYVO2SVCDL558/NOSRR4LTZIHLFCKZXHQCUYHNK/3B8Q1WZJU9VHTVXXDSWBYAPGS/O8YUHSVHAYHJGFYZ+VVVVVYZ euds5nbsh4rub8jrycs/H017EpZ8wwNikqG0p4aXAxytd78agE34ZnU5rm2AbpspMlq7e1nn+xGPqeUCKrZC7J9tLgfCXZpny9V64N0Zx4ZYtwKOlTzwFXWLz5rMf/3vzFBoYqUWUnS3hpcA7K13vl2oD9hFdw/s23Ubt/5cbV+/kYs0QVDiU9Lw0+TFX6R1WBWPVTQBBR0NGELBHGY7KZDRRJ6R8LUGLWCCOX+/FoxKwfPRm57qxgcmSvq+4peswjPuIJgxhum4IJSmfX2V4MHigfL1Xrg2YSD0OvHO3XvHJEt6DkxFjma7bQ8moZx3sTy4visrXe+XagLT0HiW7Yol0KOE9OFkxqEm7J5ecDyPFSqpI/HqvXBuwKZ0/9UynJRYCW3TMN01Y2LIZUOBS40+jgMmkii8iWB+ySvILv205NdbKE9+BKXHINDTK3CnxOV/V8MR07F7UZPD6QXYXJ4VAM+Q2STt+K1INJBHJZMGO3W331NYNX56T+0949cpX++Vawmum90YuuilbucW3TW8MLU1CXLBWIWKS8vVeuTagOu3JEoH34Lzap/1ZGYY/A8gl14lf75VrA0SohpK+9NTWXD3TWZHOAKKCUXRVXHUAGO4VYE67APO3/dV3oPjbNu0N0ZDAwglJyhf75VrA5QJT5b0fb/yHpwjTwwc+zGewsg/HKUBYC7C5C93IVXBRW+FU42PMLAYEGDJ0TT1MEKJEYSSNZ9X+XQVXBTQIY1X4AJ2XLEPNWY85KKONVRPETD6JP7KTWCVXLOHGKPCCK9X jyhd7sgjw29lx4vhcwsliz/78bkkea6qqqsnrt671ybyaem6/CUe3U559jUqZ5rJEWNpeIX++vawn0nx0vdqhemy61jdfciyksilseympv+GwguMYB9qSOKFE/GIvXh5gioFX4Zjr713zeDzbV9eYu+ne2igg71xize5bv0lan0ljl1bvodf3oknzguqszjexw9uc2klsonyrg3mkb6aomuyekn5hvrazymbo2yaedlhz+5rcswdzbxzysvznoigpr9qmqjoyivuunbsqhtsdukhgqrcy8tqwo5uwuaj2tjr5xio2xekr6/6p8TI0s+wsruao7qoglqoxyslvzimoum+w4dcmju6hv+ynrchxnmhrkapdqlvsgajc5tytaz2sjoxxfqlcny3dy3d3d3d3d3d3dzzzzRHXYHE14VNHDTLCCXOCHytipsicn9aok5x+9y44zuvhgc4ufyrsks4byagjskstzi4hpflfuhacpuoijb9cwqoki9w0ellgc4wlh1jaroarxrsox360d9dfz4gzh1jyruuswpIx8tw7Qx2SJGxxW2wglItw3EFBGKHGDw2qblVDSq1Z1xWOqdjlAaKzg+MBHNC9KLHES6AJHIUGRDIMOYXAEOQMEKTUSXZHHQ7UKA9AZWEICX9S8TY4H2GEES9RV52KN6DYBDHBKHOCYEMDLGILTUTEU71O9C2INRQABQESS4JAAFWAUHJQ12Y8S+PFIDTXZROIBMVKIXUCFIQD0ZCYR0A88TSPROIAWQOL1HFANCCUX5YV7ABQASS4FJH0X0X0X0X0X TCSIJPQ1X1AP9D8JGS3MTJIUPVLUTBATIBYRLTOJP+WMklNUrqmsfju2Tzap877ik5R/CAA6EWWIAH9IPQSMARNLMBYJ5TC/1M0OUEZMQBYEETM4LH5YCSV90AQ+qzRD7Fjc11pypqRXPeaOFT6fsIcVHLs4lK5YySXFSnq1z08AGT31O3sA+Pt3ChE84L4tZsJ+/N1pZh17tc/HRNZZAPVV9Y1W99JUDKWWSJXRXHV8KHKQ9REHKV1RZA5X2XA8FJ7TIEUDK+z/nr86+GoDC1Gi1e7XP81dQ/X9SZWYY7LEKI6JK2SDQ7DDZC9P+hDNdHZkfNW45TIgeMAd+xVKvnlg9KH4fCamwWPnTMkslKQCx/WEPP0FIBTCX IVECR2+iTZYMV4HxHyrcZCB4zL3aXpD7XPxTf6FrZqFg9/LN1HLNPCMDKQDZ3N8B6FJZCB9IRNKLNK3/CLac3xXvCYe7UVSqYPg6e+Ov7ikVCy+SO/XztWAHJissQiDqJDvnNJcmpkYj65XofgAfdqPZT8uoWoeCg5WgByIpRYxEF0yGUo+Z1F9NIQ1Q71KLF9ZV8UNMQPJUCLQE6S4FJEEXTIRYGZVMOUIWMLM3ODIHJF+W9xDf/WPFQCQQAZZZKITQZ9M55LZCWZ3V5WL6EIN2YGSKBO88G+3HCVSFYEI9PVU+uekqMFIC8mS8zh8PlkNJQ8FmoVlouDJshb2WXkfc1Pbw+YY5KJBSAVQO5HD6FRISFRFMQYJBUWUPZLYG8RUVOGO8FX OSAOR3CX+ky1/E4XPLSI5Xmuugntocwmrkis0Co7FMHzlahztiugmacuywgmkxC2UTYWH2Gmgmsmvldokafocq Something like this
(defun c:exd ( / obj objl)(setq dist (getreal "Enter distance" ))(while(setq obj (entsel "pick lineto exit"))(setq pt (getpoint "Pick corner point"))(command "circle" pt dist)(setq lobj (entlast))(command "extend" lobj "" pt "")(command "erase" lobj "")))(C:exd)
Not working as needed. Looking for something that lets me specify apoint to draw a circle from and then trim line(s) or arc(s) to thecircle. Normally I draw a circle of 30, trim line/arc to circle, then erase circle. Trying to combine all into one.
Tks, Chip I posted the it is short version just use the same code method for a trim, add circle make this the trim object pick line outside of and all done. Yes two picks. To fully automate needs some rules pick line near end and check overhang trim or extend.
页:
[1]