乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 85|回复: 5

[编程交流] 帮助设置一对clea

[复制链接]

1

主题

3

帖子

2

银币

初来乍到

Rank: 1

铜币
5
发表于 2022-7-5 15:54:54 | 显示全部楼层 |阅读模式
大家好。。董事会的新成员,我的第一个职位。我正在清理一些绘图(有时一次100或150),并试图建立一对LISP例程来提供帮助。有谁能帮助创建一个将length命令与总距离30结合在一起的例程吗。此外,拉长,直接到动态设置。第二种方法是将“圆”命令与半径为30的命令相结合,然后能够将对象修剪到新创建的圆。每个命令只有几个击键,但当我必须为每个图形x 100或150个图形执行4或5次时,只需击一次键就可以节省大量时间。我不熟悉编写/编辑LISP例程,因此如果有任何帮助,我将不胜感激。
回复

使用道具 举报

6

主题

49

帖子

42

银币

初来乍到

Rank: 1

铜币
32
发表于 2022-7-5 16:15:45 | 显示全部楼层
更好地解释你想要达到的目标,也许是在绘画之前和之后。
 
如果试图更改许多图形中的对象,则可以在不使用odbx打开它们的情况下执行此操作。如果您正在更改许多不同的内容,那么只需使用entmod和while循环就可以找到更好的解决方案。
 
使用Tapatalk从my Pixel XL发送
回复

使用道具 举报

1

主题

3

帖子

2

银币

初来乍到

Rank: 1

铜币
5
发表于 2022-7-5 16:26:19 | 显示全部楼层
 
我需要展示相邻地块的30英尺。我可以用“长度”来计算,然后用30来计算“总数”。在没有30’切线或圆弧的物体上,我必须使用“圆”然后“修剪”得到30。我试图绕过额外的步骤,并有一个lisp例程结合一些现有的例程。Tks,芯片
 
 
[img]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
回复

使用道具 举报

106

主题

1万

帖子

101

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1299
发表于 2022-7-5 16:32:43 | 显示全部楼层
Something like this
 
  1. (defun c:exd ( / obj objl)(setq dist (getreal "Enter distance" ))(while(setq obj (entsel "pick line  to exit"))(setq pt (getpoint "Pick corner point"))(command "circle" pt dist)(setq lobj (entlast))(command "extend" lobj "" pt "")(command "erase" lobj "")))(C:exd)
回复

使用道具 举报

1

主题

3

帖子

2

银币

初来乍到

Rank: 1

铜币
5
发表于 2022-7-5 16:47:11 | 显示全部楼层
 
Not working as needed. Looking for something that lets me specify a  point to draw a circle from and then trim line(s) or arc(s) to the  circle. Normally I draw a circle of 30, trim line/arc to circle, then erase circle. Trying to combine all into one.
 
Tks, Chip
回复

使用道具 举报

106

主题

1万

帖子

101

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1299
发表于 2022-7-5 17:06:26 | 显示全部楼层
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.
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-13 19:57 , Processed in 0.452668 second(s), 67 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表