乐筑天下

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

[编程交流] 需要为属性创建LSP

[复制链接]

5

主题

34

帖子

29

银币

初来乍到

Rank: 1

铜币
25
发表于 2022-7-5 22:25:44 | 显示全部楼层 |阅读模式
很好的一天,
 
有人能帮我创造吗。lsp用于全局更改属性值中的值。
例如图纸见图片
 
我有20-30张典型的块属性。使用脚本可以完成这项工作,但脚本需要命令来替换块属性标记值。由于弹出窗口,无法使用Find命令
 
我需要将属性标记值(L-782-LT-141-05-N23)更改为L-781-XX-141-03-U。
 
请帮忙
亲切的问候
奶酪
回复

使用道具 举报

5

主题

34

帖子

29

银币

初来乍到

Rank: 1

铜币
25
发表于 2022-7-5 22:44:08 | 显示全部楼层
[img]https://www.cadtutor.net/forum/image/png;base64,Ivborw0kgoaaaansuheugaaa20aaae2cayaadyjhrxaaaaxnsr0iars4c6qaaarnqu1baacxjwv8yquaaaajcehzcwaadsmaa7dacdvqgqaaai8jsurbhhe7z0lgbvv/cd/u4D4KlFR86+GwC4EhiU+esy0bfxqllqxktpn1uxfsup2mokgjgcwfink/wcQKl4TUzARDQxMBYRfU7GGFCj4Qhd39n995zD0z98zcO/e9934/8ns553eem3pvpfo 958zckijqewyaabwe/bhh4nu2k4qqu/rsjbksi7gb8cwaabauvottwaaapiiwowfwaaaaaacyfoawaaaaaaiasbqinaaakbgbbyhucwaaapkcog0aaaoihfukzubs3gdoaaaghwb0qyaakbds7ne1fkp9amaaed5adegaafbrntuqwidqaaqalkd0qyaaeuawi13fnkqa0wmvpobaacg/IBoAwCAIgHhlhu2l4hYKpV+aaaakd8g2gaaaalrr3m/RgSJTKv0AAABQfkC0AQBAEcFsW/z3qedrazu+gEAAKD8qBKGW6cBABWG/bhhh4nuweyxcoehyrlkmq7qbdfvvyk/VeJftdyS3FYLJ4cZPqutbW3CTJi34p+oz4npg7h7iy1y1 jdgabal/1xe6HIdv+AAAAaH+0tWa+JIOHGYwdAIAKw/7YC1xtW0C0FY4OHTvRZw44gOrr66nvYYdpbwI+S0osWSYcSsBxjM+qFmxCHfEZ9ox9Ysv5PdgRBy6qVZfXD27fituYdvk2N68/VptWMBIumzOcVSlnaCuO9j1PuvWF1eG5E+kJlzpmPqxC/jttcxbwwwf7hybqiawznpl7xvabeob/cVqzXQzBrFl2N2s/E1yaamO3YdbuLaq+VGNYfry/uzfkuk6nnex5kuczez+OgrIvz4/I+pi8kmvdglc9smqse7of5ekcncb1zzjkdkx77gfulz6e4xr2fg2peqq+r9f/h8dd9yXaY899hCZ/bmdbv5cpuyx8 qz+FkZ3gbiZQPP/yQlj/7LH3729+mxsYlNGfOHHrr3/+mlp3xl2be2bi8aacgp7i89e8jwu2ghvancbzfou9i1v19n773/Pr366np6429/0ykJzKxWB3G+eNtRDLDVIsDbDnqwZYG0UwzArUK58XeZLOBaxLlWM1180WTOtdr6LhatcBB1ca5KSRN/TB866j6wn5Fb8Yfb5L7sFAHZJ+6D7ICY7MMWOI7QY128M478PO7QULXLZO/dZRL1yY3EzhdsL1gHx11pts8nw9LJH+EPxhk+L6501zYMTne9tmy/XYCDDNSDMJYYU8JZHFIAS7NSWY6YTJPL1JERMNEQ1UQVHLATMYPDMSVNKMEL33GB5X8OPT0J9IKXUJL39G/+W0HVBBGECTJOWZSKTJJ jq9xfiayvkafwxdvflmtqrkrcrv8hqbrd71ooy/Lb1yDB51KDzzwAJ341a/S6tWvJBIsksqH7IK7Hfv9KTd+nE53XYw5Locf3o/+8Ic/0PDvf59eFv3+XO/e9Kk996CfiDHvk4+3yzzpwrztwyaAGWL/bexpjavq0rvmndjgbzrp0yhf771fj377hlttyzfeltqthusf3fgtlwiwxon2lajc28wbszuwkws3iptzgmyx1hwdnlbupkgl3xyqzkvuabdrtem0reujgt2rgw9vgw+6KrdRJ2EWBIle7Dkdcu76orypd2WiCfuYDhPO46ktNMWPp1ecbnt/Izns/l53/ab5JZpLW2tkp/cNvWxl8DiNdOwM/wNnGB52+lmwlrumozuhxuotu+dppuxjbslfxvzup2jbpv LWZBT5ZKP+Vwa7XFQ5uDRxnl9oG07Q/pO3k/Amfneb3y43E+PlfELuMr5DA8wtM2PYZEmly4yMqP+NMd/QzCL+3GFU+kT/4mjT1h71WOT0sbdCpGYg2gaxT988mmNfE7WPgy+Ko2yas3/0O/7wn2hY/1ih9xw0cSJ85YH+ANHLYRBK37LL0LWAAOYWP/YSH9BBiiWgKkm4HdG/P5166iB6fOky7XHjEm0dOlSrLQ+YWVGGEMINWXOMVDW0IGCAITAVVC5ENTIT523OWFPJIHOPSOMI9IDSEZNRYOM+IACTMW/GHhRmLtRYt2jjOcB85aFXtI8zPhF0UhOLIb+pw1sU+3lErzb7YCZax4yboqpd9xp+UZMM6JWAE3TJTM666ZJYLEGGNRN3LJZCSM6MMHZGRZUKYVNALHZPNMZBPQCCMJFPZZRDD6VUUPGMHK7FXBOI34TJTKI6GKJWHE6HJVVYSTXZ8HWI+d1bzDfOV9eR3pGjstmC4/BxxlTVCW0W0bZL5AGXtrwgbbZ5J8+V31m60pYOFL19hhxp+mAwL2u15fjPE50wJ9dCHeETqU2F/X69耦合D5U8SBYZA3TA6VF4PgVMCduphFXot3TMi7RxtTvfz3MZ5th//JH37UNNxZK300AAEDZYN/shQ9GEG3556c/nUJ/efFFevPN6IGLRRKbEW08wyaXR+QZJPC+IBVGUHYRL+DWCLS2VVNMCDGP2KSZ6OASUZBSLHWXMA5HEQDXWX2WFRGREBQVN5FB8YDFWOSWKDZY5AW/ZCJFFF7AFWGDPHO5SSR3DQRWZFJE6JALHMSZ1FXNDKN/A76LGHWFCHP1LLTNHVXIuntyzulzfwujoqzfkwix+8VQJNibRWFm2tLNxUnI3rYL98uAyX01tVZ6J+huP8egq7+GQ4LYid16SHlc8WV/vpEFaO/VFpQVLltdPtrEY8+Mr78jrSBUF/MJ0/Dxj222km6JULtp+UPxEP8zNW0EvjfzYmv9zaBTSmnI0dT04z2+S6DCbNlSfYvyDm/cY55V9RR6rXf1g6+4N9SFe0Ma56ZX+8PhJ16XIA7bHnvjpG9OEHb9O7775FXfb+DO1p+T9g/ZTV6ZGMZTAZMNF28MEHUF8VFPGMQY9QSGJ4GJ4 i7fqaakfvsj73wgaiy4qkshbs/KfKOO+6ge++b510ah8hxvfioinflzrf4qovfgws3fl98vlms8b9wkcaejwd+0q63xtnzlng6ilrqdkvrxvwocosikni4wrqhxuye4lizf2m3ir/ijR5p9p4zHdVB8c3+2LiSBhFwOhBPL7ohF1uUVORF0CtYTQD5cx5YL5jYPbCrbjz2vKh+U3WxHw+WVOL2yQQR01eWyxxiJuZ8tOKdB27lTCjeMclkKO03fu9AQd18c+WZc2F/aFq30RaoddZdkXvGhlXHVlit1GnPqi8nJaWLrLnyqvnR7Man/J4uEslxxO3sqNz2/CjJ2eeLfr/drrnz9rprhlqochz5rfoz3m7kiy/v2xmfoomdn8fghht//kbdgb7zmpedquz5v2 vcu5z+RnX63yQuaftxNSijXHVzX00dR50cF96+KE5MsycfU69FG4s5IL+N/+2RscsXPU7fHxP21N/eCpJtPF5G/gd4xtrrell/URJ7rl7bwEAoGyxP/YSg0KQYgunchduLKQWLlxI10+9QXvCYcHG9udzzyWaOJ7o+hvopF89TLuIga9jhw4iTVwACJNiTfxr4wsZDmvBViXydOjQ0RNsHbgMh4V14HRR1ro+seakcbi0hwaxjkwbihgkvxr4o28trbybm1wsvjutro13g5jricwy5oqnhk97lc6jn9clax1l4v5ewcqbz8yhpcl5nm51ebv99xtgtzb/sS9Zg/Cru81wajg+y65gcswo1jcqkayhgomzhdhqqsqj27fzh8jfjnw7lidteezz 74RL9STOW2BEDDPGXEW1/sDzD6VH1ZoKr7XTrjMqXTn0uf9AXFbeT2O8UEjqTv5w/N4NZ1SY0GWS9VRQBG57FALF6NPLVPUGFYS3YF7AFRHFHMFLGZX5UXTJMFNNRKEXVA78GT7ZMO/zzin/CvqcL222RFWB8ZON6LTQ0K08QM9PBZ12TJTMR5XTYJTSCE+YQJTGCCZ9Q2VPUU5MQTU02ZYNIVV/97/lEGzN+3BV09TLDIDOAACC+2MVYSOADFUSTI9F2WP5EY5YRFB2O6RZUKTNTNBQAY6HGXHCUCUXO/CZYFPBDH1ZUGTCSNERL5QECYWQS3YKJU6XPSBRT0JIDQGBFHX6ZZT1TYALNF3HX3WBE0KWVXVNQ51A+WAJ34UPK9IAPG2Z86RTWYN+Fals5P5P5P5P5P5PK9IZZUK9RTWYN YzMVSzubhvx2qdaggw/5gGYZddhkbzt8ixJacZWNhxsJaXDSxINupxRrPsknhJoQaizbp06LOiDlTR9SMG18cRl2UMpweLGdgf1T5VHW7sNsKlk+3vrB8Ln+cvAz7w9IYO81+zzqFhM5rlwnWbeK8dYk3s7XLmaD0W+3kpdrrlptq4msfu84gv7axyhts6fg2onjzw3+mXjve8k4XXbcN2p3gOhos0QUT4I95HrdAk3gxFs777zL+1havutrpu5fg2uwaaacg9pzndcqpfu0cmnkgfadmeixlglfelczozzyiurzkqbb2deruydvu0mkxatk8i4pzufnhfe+0i4iwksnvzzwv1uf20+v2yyyy5mwayfjhaxf65zv65zv DM3OB+qx2vLltcy0o/pr+q7MPla+fOJYmrq9fWEz+XRemd9sTTmx7Wz5Ou4izosuL8vY7Rp/Z87P9ep6OJ/xab9pj/1mP7w0md5Zmto/Lqfzs3XuTJ1FOe6Xql+ly/4Jkd+RfeL1wa8hjvPrjV9f9r2QbPZFWvAikeO2GVw+Q5g/SDP5DK46GZ5XHDHEVZ+SDQNP5JGCSOEXDHLL1MNHZFBEIPM/H5yo89tmY/uD7dppxpTfmPBZ7cq4qIMTE3lV2Dbbr4Q/H6XB83N5DN2MSPTJFN4YPL8MUS42FRRSISKSB/UrHdJtJwi/VYQREELCGPPBZEH24YFWSIG2DTZGU73HZCTYMZ6KJ2CJGGIASHMFZELYTFZHZE2ZKY6/VNRMNN6 91EZ6/8M71/XX3UUTURL/+TDJUKOUPPFUHGJFLWHP79TV03SU/pnN/MIKGff/7dM53vpOYVdMmZ9Y6fkz/EMOUZ1ZJ82+83aadcdtdPvL7yTl9dvb9NKMm+mld1xpwnjWzjNecql8nMazeHZetRxTCUyXBfM77Z2X6LZbXqJ3gnVZ4XdevoVuu+0letekWab6qMsK4+WlbDKdZyO18fF6d/XtdOesv8q2Pv77Upr9+7/Tx0LAsCj2+sr1eOWtNNOG9rPP84ttxw5CCGlT5RP1sO+Tf/6B7r/vXrp/3n00//776IH7X6WtOl3WpY/xjreeoqeys+qRZlRPgXP/8jvfwjqinf++lrdrt6pfm+gXG9eVCOv+ybjIL7Z2Wb6IlMeQ75m0L2IdF5XmItqY7TMEw3acCcYzIW4d2bTp2gcmzM+40jjOxyoMU0YZx7Vf//nhztd1mrkgrf0jm3dyds554z1v1gpxppotemndgbhf/V6fcJ0/uytl871fbdfvs15uxt2heokrpqcbzxv+zYUHE/xSJNE98hRDVBw+dzlWlqM4jVbumzu3bt3tmcJa1+xjSkbA2E8clMyDaAACgxEkl3DiN87isvTNw4EA69NBD6c0336RPPbGMdg47R/pbhg6T8b/97W/y4nr33Xenjz/+hP773//SmjXqpnH5eH9hfMEuHzgiLrKlT6T1/MZ59OPRDXTJmMvo0qMO8IsMh/fgqwbzeojhqfeghntegfhurzvpxjb6n4ao/l2mbypwvq4ddxu9buvv9nv1dnv8 un6e9vw+nC3n7xZ3TrS297+t96cwnduqn+kjE7TZ4mRjn2b//GBo9+kg6qppfu3z8zlo2eet3rc+5l46+7e/Sb+fvZT+vl37xLEwQkrml+dG12P7uL0ep9J3/ncknXc+2+hulculi9u4eic7+43J9NK9+Zuovfnz6nxt6rjq8oo4sx7wedbljp9fwv56/WdzxUfS45rv5cmzMTZ+EKTt4y56HRdNPPWhG3YZ+d3ezwwikztnmfyvssaupx8btja4v0nnop45biwdwbrlt8kbu5+9NZi8xgwcDIo3Lw9vrXp4a/bJ+BiTX1myj+8jFSGVIJA+u4c7uszgmr9jlgmj8ox8gbvxlin4dourpc5y12o+nkfxt9acyae X8G2ZUXR+65L828ebK8Z9UYx9nP6c6y3Ee7nzHaTByX+EC0AQBAO8MPPWDOEFFRNNY+0uD86ntv33o06/eIBHb+o6+07Q2RUR7BxxxIMFRDCFGGJB1PV4LR8K2EHARXLBDONL8ITBAIJ+tQPc+uLdmFcxn8Bzz5lKp+uW+dRcbWVZbXJsrrOtEz1RoWtekxd1W+/SU/3PpuGn/U5EVRVM2X7ITXYR1RFOD8FKN6AUJKSLDHVRLSYS6XHGLLXB+59ZXTPtms3n8vP3tlsUBebarBhN+FV5LYJ6ZANW8+QTPAZ2GXZM82D5FHNKGEJA2KYLSIG5VFPBVUC1IRTN4HWYV2THVZ4T54XBVR6U6UZYXM304LY2SILUGNNOUFDY+FSPGZVW2EW2E FK9HL/Is0v3pRPp+ttIq+/DuNLmKrP+M02TLzpSKKQwC5nzMb2mSRXPoOrvMHuUzqEtcE40/H9PT9RNB5VPH323VTakcym3Zdoe2SNL03XWUWS0HD8G85BPSQ1W6CLTABQEAOFKWP/au0dtkrj5UpL6hI0WG+8ECze4P9689Cza+6B42bBg986c/aY+F4WYOOEMOOG9XL5PU388LFOW6K30IFF+AZ9PHQYFW/eTLv85tfyHre/bd9OW997j97b+h59+OGHDMABBB9D6V18VF9U888QZK7ZLI+wW+mDTS7R5/YOP1Z67YOTXFiedomy1399E/3x/c60/oH76dd/eoae3fw/dESffalz1Yf0rz+tItq3Mz0w/376K0W h7pnnv+uohnxL78B967tqZdNcfn6GnpO1Gh514CO0p/CuE/++dO9O8+fNFmT/Rs7t+jo4/eE954VH13+dp2u3zafmzfxK2mf7ni31on87/pb9Mu40elD5hoo0vH7SnyF5F//3LDTTr58r/9sed6e3nn6yvkg0y4sddLEcZJ5X/05be/2vtrygd3p7yv0t7hhur7cp/mVdNo/lMi0+t/pRUr3qZdd91Av1qynujtdfSXFcupc+1x1Gn9TTTnX7tS51/+gh5650cq3evzumv5lnr4r72jjbrqv90pd2bfkkllzhk//8HL37mcOpdu9d6KM3Gmn2ik70+dq9aRfR1jYRn7tiF/r8QVvpyft+q830djw9tjje6nytjjjjlwd3r7ft/y88t395f7ft ga0z9tzmm7q7n2izl8j2bt1il2/ej77Qswt1ktdrvI+c9hG9+cS9tPCJv9CLL66iD9v2pi1VXenwHntRp3deofv+7z/U7chO9Nq9i2ilqPKf61+kl7buT72770U7//4kPfjIU/TyX1+i1S//lbbuW0uH7NmR6KN/0fO/fYW2d/qn2K8XqeN+PWjPjnxBrS6I+QEKFJFOLRDBK+COSW8TPBI0NUT70NYVVD8JBRABKVTU9FZ1O249TI+YnhzXAQG/jlLhas+CW1EAWU6TQZEVFZEEBUKQX7JS7YO/Hm8Mt7Gnz+RnigX1Y7BxG23qxyTqr7k42ulBcqGtcHYabW1NfTyyy/LlRf/+c9/tJdxlOdyKdrZd7/P0tRrL/fev1dOmCbvY/vDH1fR1048Vvq+/rWB9Mc/vSTGFbs9B6Y9R5sHHLA/vf766/SFL3yBmpqalF/3+fgvH0cLFiyUr4t0wEwbAAC0E1igRS2TLFc+84PhVCWE2PbBg+nTp51Gn/7mN+nTIvzRoFOpWvj3+Ok19F8h4OwlSBIxYPKgaQZrO9z8m7volhk3089unk5/+S8PttJNrz7xDzp89CQaf8m3qc+RD9E6KWBKPH7KJP/4iSaeP7JRL9/lpo+4GKfoeOumkzX/oRtJJ1GS+kPzR+IMRIILF09ITITITACL5DAKCZ2NTH6I+IdhuvPcfdPbFE+jKcWzfop6f2kav/foe+ufQ0dp3Pp305D30gmh/22uP0rwnvk4/lP5LqB+9Kus2+YPLENX9RN9+8NPU74BPEE5GER3USFPB7X/gv2OvJJ+8FUR+OoIuvzyM+ioI8+gC876HFHvs6n+srF05H4yG9HTQtl9/3K69PQetId2yfo50PQ0/euwemoycyn975m9qonxf6a3puqervvphtr7heqnnncg1vatnf6j0xtrf7vsttd/Rwve+ganuohdofff9ow4/5EC17aLDLzfqh98S5iNj1GP59zJ901Zzbd9fI70vX26vn0OA2m74y8gM4fOZQO2LRJ+iWyMPejK33+/LPoSyL2pSH/Sz/86iG0uxB0D/GDR889n34w4kf0vbO/LT5TJ9CGRAKQLPWVFUIFSVUWBRIZ9S/ZBU3UR9MNCCX2TSZHAOMT5JTS8IOZuncqshczylkio9V7JayFxBPH5XbyW5G+VMPjgutiB1PX86G13OLGWCFPMWW5G 7jcmzr01oybzih3hxere/+vD4PcnfD6z9sP2iz/am/DbYdvHJHyJosE8hlQ+UUpuE+9ojifs7fdtwbtmvfocxp6sgymqn5e684cfvepj93kmflxbd4g/XY5JxF9VPufTJg/Cog2AABoRxjhVgnLIvkpXjfeeCONPfwLdMXFo2n6v/9nu6doprkzztcswbpo4d33oafvod+Ky78GV4iecQRR8hvNI8++mjpY1yDfu0ZI4XwuIwuG3slHbW/dgo+d84p1HNPEdjjAOrXR1zGvy+Umebr53+jdudaad3ozfphb2ux8tafp9cka9jmmpk5y3hj5sy+3ejr3OZbUT/eV0oh5OOU+0nyllvgst9urcw+nGG64Xdjc9Idz/fP8/9O+x19hnypal/eqfal Zo7uy8dxvrmgg7l278n/v0yv9u5H+8u696D9P/85empfm8mubo6dfwv46yqfsahxppcf2h8j3onoro77ygl7n7tgpokbab3ptkzoie5gnuerowj/1t22jzq01CNf+W5t1xG915x+204FmR/O8PSRyaRD4ZEvQ8jb5XfyH9rxBo/9tvH+F7m/65gujYIz5Lu3Mn2vahHqf0EFt/mxw3PlPf2/96Tii4I+hgOaUn/Lv+Dx3Wn+iv/94iiiuw5ii4+7ADahfNz+RBkmpWu9ithQWyfKz0X5KveMOK0x3kz6Z+rjkrwgcwhsro543jkrzynw+dwVvmqM3AYZcAt+O2wOSNMpFmtSXT2efLq8ra5RlZVqbx1u+tfjxmpijtcn9gho2f2 Uzclzesyb6gfa6yxnmrtwmbyvkcqsiucwkkl038m/ek2nB6lKZywb+99o8310r7+5trpGBjeMvxN//2is+fBLdnt8l91P00yJUc+n7ZXADRBgAAoCzhiyG++OGBVP7jrR5UZVjnkT4z1uo8Jp+Jy6D4l7hfhZPa6P3mX9Htj59MF/NS21VJAHHFFXMJJUGBM/4/CYKI5190XI64SQEFBPH7ROT1C9EXLOXCH9BYRV/ULada0G2i6sFkPc3w1/fsDkVf+k5VRK+fn8mJ/hCP
回复

使用道具 举报

17

主题

193

帖子

179

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
84
发表于 2022-7-5 22:47:44 | 显示全部楼层
 
have you tried LeeMac's routine?
 
Global Attribute Editor & Extractor
回复

使用道具 举报

5

主题

34

帖子

29

银币

初来乍到

Rank: 1

铜币
25
发表于 2022-7-5 23:03:19 | 显示全部楼层
 
 
I can't use LeeMac's Global Attribute Editor & extractor due to interface, what I need is replacement of command FIND in autocad
which .lsp is handy to do
like for example
Old string = L-782-LT-141-05-N23
New string = l-781-XX-141-03-U
but this Strings are in block attribute, using the other text change .LSP are not applicable when it comes block attribute value change
回复

使用道具 举报

106

主题

1万

帖子

101

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1299
发表于 2022-7-5 23:15:07 | 显示全部楼层
To clarify you want to change the TAG name this is part of the block definition use Bedit and it will change all blocks. FIND will change the attribute Value in all blocks.
回复

使用道具 举报

5

主题

34

帖子

29

银币

初来乍到

Rank: 1

铜币
25
发表于 2022-7-5 23:18:30 | 显示全部楼层
 
 
 
Thank you all of you, for quick response
 
 
Yes, Using FIND command in autocad can change the Attribute value in all blocks but im doing script and FIND command is not practical approach(got error)
Using Bedit will take more time, shifting from one dwg file to another one.
 
 
The scenario of my drawing composing of 20-30 sheet with different file name in example D-ELE-A300.dwg, D-ELE-A301.dwg, D-ELE-A302.dwg and so on.
In each drawing file, I have many Block Attribute that I want to change the Attribute value from L-782-LT-141-05-N23 into l-781-XX-141-03-U.
回复

使用道具 举报

106

主题

1万

帖子

101

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1299
发表于 2022-7-5 23:31:14 | 显示全部楼层
Ok here is a lisp to change a certain blocks attribute value in this case 3 attributes you can hard code the program if its always the same otherwise you can pass a varaible for both the new valus and the tag name, this can be done in a script. I would mhave thought Lee-macs attribute editor would do what you want though interface problem ? Ask Lee here nicely if you have problems running.
 
open dwg1
(load "Issued")
close Y
open dwg2 etc
 
  1. ; changes to issued for construction: thanks to lee mac for original code(vl-load-com); 1.  Get current date in mm/dd/yy format.(defun ddmmyy (/ x today)    (setvar "cmdecho" 0)    (setq x (getvar "CDATE"))                 ; get current date    (setq today ( rtos x 2 4))                    ; convert to a string    (setq date (strcat (substr today 7 2) "."    (substr today 5 2) "." (substr today 3 2) )))(setq oldtag1 "DRAWING_STATUS") ;attribute tag name(setq newstr1 "ISSUED FOR CONSTRUCTION")(setq oldtag2 "REV_NO")  ;attribute tag name(setq newstr2 "0")(setq ss1 (ssget "x"  '((0 . "INSERT") (2 . "DA1DRTXT"))))(setq inc (sslength ss1))(repeat inc      (foreach att (vlax-invoke (vlax-ename->vla-object (ssname SS1 (setq inc (1- inc)) )) 'getattributes)(if (= oldtag1 (strcase (vla-get-tagstring att)))(vla-put-textstring att newstr1) ) ; end if(if (= oldtag2 (strcase (vla-get-tagstring att)))(vla-put-textstring att newstr2) ) ; end if) ; end for) ;end repeat(setq oldtag1 "REV-NO")(setq newstr1 "0")(ddmmyy)(setq oldtag2 "DATE")(setq newstr2 date)(setq oldtag3 "AMENDMENT")(setq newstr3 "ISSUED FOR CONSTRUCTION")(setq ss2 (ssget "x"  '((0 . "INSERT") (2 . "REVTABLE"))))(setq inc (sslength ss2))(repeat inc(foreach att (vlax-invoke (vlax-ename->vla-object (ssname ss2 (setq inc (1- inc)))) 'getattributes)(if (= oldtag1 (strcase (vla-get-tagstring att)))(vla-put-textstring att newstr1) )(if (= oldtag2 (strcase (vla-get-tagstring att)))(vla-put-textstring att newstr2) )(if (= oldtag3 (strcase (vla-get-tagstring att)))(vla-put-textstring att newstr3) )))(setq ss1 nil); (setq ss2 nil)(princ)
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-11 06:22 , Processed in 0.782797 second(s), 69 queries .

© 2020-2025 乐筑天下

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