Cheezee 发表于 2022-7-5 22:25:44

需要为属性创建LSP

很好的一天,
 
有人能帮我创造吗。lsp用于全局更改属性值中的值。
例如图纸见图片
 
我有20-30张典型的块属性。使用脚本可以完成这项工作,但脚本需要命令来替换块属性标记值。由于弹出窗口,无法使用Find命令
 
我需要将属性标记值(L-782-LT-141-05-N23)更改为L-781-XX-141-03-U。
 
请帮忙
亲切的问候
奶酪

Cheezee 发表于 2022-7-5 22:44:08

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

nod684 发表于 2022-7-5 22:47:44

 
have you tried LeeMac's routine?
 
Global Attribute Editor & Extractor

Cheezee 发表于 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

BIGAL 发表于 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.

Cheezee 发表于 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.

BIGAL 发表于 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
 

; 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)
页: [1]
查看完整版本: 需要为属性创建LSP