lisp求助
各位大神有没有这种LISP,比如画个圆或是串好的多段线,然后输入一个命令比如AA ,对画的圆加加文字属性,文字内容可以自已随意写(最好是还有存好的固定文字可点选,类似词库那种),然后可以输入BB命令对刚刚加入属性的线批量注解出来,文字属性可以加代码,一种同一种代码前有个统计的数量,还可以输入CC命令对有文字属性的串线或是圆的属性进行改更,有的朋友分享下.
类似图片上面这种。
本帖最后由 前生 于 2024-4-1 22:12 编辑
希望的田野 发表于 2024-3-29 22:35
能否共享,谢谢!
data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAXIAAACxCAYAAADZLzanAAAcJUlEQVR4nO3de3BcZ5nn8e/pbl0t5+LYhNjJxo4lWxGeDJ4KWdwKhLBZiNpsEDUZhdti1ptpzWSSSAw2mS28VdSOd2AwM9Wd4aYOE3CoYSkFakSCu7ltCAE14FDFYBRh3O3sOOBcsOOLJOvWfc67f/RFLalbUkutSC39Pq5T7ss573lPt/ScV895z/taxhhDmjEGYwy2bWPbNslkkkQiQSKRoO9cFbU1NQDYBtxW6n95bYyNjvD2xsunvX5h7CViAz/CJjHj9r+99+Ncevl3AGzY5eW6j/8FHqrZdsVbuazi6oLbRdotDjbFONDfgI8wpqsl9UY8SHNDPwdMFy2pFbF8EM48T2/b02pIbRKh3eqh1eznRPMeONxLR33eHWL1tGK6Woi0N3Nify8d9ZltM2XHCeaUEWm38IVmPPwJ/vQxxIM0N3SyI2xo7SmwfXrdSLuVc+xxgs0NdLeFaev20RmdUu5CRNqxDjYR6+0g89HEg80c2tbLRNFTP4vczXM/70Iy9Y/Rm/rwsHwhvIH08wLrd0b9k77bvCUHm2nobptU/zwHSbvlI+QNzLBeep87Cn2mmTpNf8cfNnQ1THy3XS1kjzGj8LHmHEf/gUn7zvweTGw35XPMbDe1UqX4uZgDq5hAXlVdk7eQTFB3W4te31VreCR/IF9sU3+AJ/2w5vshTQfIPL9jBfnDOcFnaiBv2kFnZwi8AWK9uzmS/QWePbBMle8XtHjTf4FLZeLERc7n6CUQyz3pFQ7kUwNWQekgGmu38IXm+Dlmyp7ynU8NXpO+ywJl5FtnehAs/vtdzUoSyGXxFWqRi4h4FrJxbks8k2aZ+ni1UJpJRJbKggJ5JnjlC+K5r4uIyOJxlbKw3MC9mlrjIiJLaUGBfKZgrda4iMhrY0GBXMFaRGTplTS1IiIir70FXeyU105VdQ1PHb+41NUQkWVIgbyMqB+/iOSz4EDutlJ3HWaCzNjoCLU1NZNek5VnbHRkqavwmtHPsSx3CwrkY6OpYJ37g15VXYNt9MO/0mXG3VkNdFFflrsFBXIF69VLwU1WgpXyl2XJcuSZ1rmsDivlF2Au9HO9cq2U71bdD0VEypwCuYhImVMgFxEpcwrkIiJlrqiLnXU1hq1XVhV4t7IE1ZHyoe9bZLkoKpBbVhWWhqcVkXkw6rK6aJRaEREpc0UFckV9EZHlp6jUSo2lP49EZL6cpa7AilVkjhyUIheRebH0N/1i0ScrIlLmimyRj4OlbmciIstJUS1yq6oylVvJLCcDvL3Sy2dPMvn1GZbv3WdRV2lR99YAJy04+bCXuvsic95eixYtWrRMXopqkbsTYGXuB4oHuL3pIxwFjt5o8Td51r/lMzF++GA9Jx/2ctO+n2ZfuzRen1rBRHhgH/x9fwuWLqKKiMxLUS1yjzv9IB7g9qZu/rTfcGl8+vKv9wL3hvnhg6mAvfXBKJfGDcc+s2tSeScf/lse5ac81GSxpnLycvvD8VIcn4jIilf0xc6TD3tZ0/Qb/sf4/+S3Te18b9K7cT77VotPNsa49PmWWUqKENgHfz/tZBBmL7BjW32xVRMRWZWKSq288PldvPlb93BsvJOtwDue6GFNpcXeJwydJ7zclA7MP5wUg+N89q0NPPSzzPMG1uxLPbrlMzH+qZ5UC38vfOmZTnj4b3n03jCX7lz4wYnIcqL86WIpKpBvub+X4Y9aZL+QO7/I8BOG2rss+j5zguHxeqZ/WVt54BmHB4Dv3efi7/rezFHa+PUzqZNBav3UNhaGrQ/2Mpx9XURWDA3UtGiKu9jpAsuygAh/VeHj0Zz3ju7bRu2+yevvfdLwuUzLOh7gib5dcPdjjGw/xG0Pn+RRPsSOb7TR9+XUF2x99y+o/S/Qk+jinfM/JhGRVaWoHPkPHnBTU2FRU+HjUfz0JAwjBZaee3O3jPNP/wB33Z1+emcXP+qI8Y/7fsrej2da5qnXe+4N0fqXkRIcmojI6lBUIH/n52xGEg4jiSPszaZECi1kH58M/le+0bib+pz3Twb/F4+++R/56zsnb/fOLxxh75d8/NV3ZitfixYtWrSAKS614rJc6TSXlfpnWRTKelmZtSw4efwmPv7FBqxg+tWTQfbuszh0/CPUW2RzZ6nyfHz0H3bxhv8d5PMtncVUT0RkVSoykJt0jhwgxLs9oRnX/+/vScXoO7u6AIhbqT8BrIZOfmznBGlX+k8DK3UCqO+MMqYYLrKi6Ka/xbOAQbP8fMs2jBVYvvXncyjiO+1UuS2qtn2En/3RdtRzXESkeJYxEyOMG2MwxmDbNrZtk0wmSSQSJBIJ+s5V8eatl+Nx6bQqIsUrnIiVhSp6PHKXS1+GiMyDo0bgYpkWyI9HHuFHLzg4Tmqx7Rrq33kXtRa4LVCDXETmRY3ARTMlkJ/l1Ysbecu9d1KfTq30h7/Ej8P/ys7d7019D/ouRGQeFDoWz5SLnetpfu9utue80rCzkTqGXtNKiYjI3M2eI1+/jrr0Q7el4RJERJab2bsfxp7n5fRDBXERkeVnlkD+Kj8/9jJk2+QiIrLczJhaefXnT3F8COoab5v23vhAP05yAHfVWozlwu1eA+7LcbnrsCx3ntJERGQxFA7kZ3/KU/1DsNHLe960jr5zU94fP02Fe5SLZ1/Gcg1TXVtL5rq05V6DZVVhuapwV2/BXbFh8Y5ARGSVK5Ba+S3hb/UzVHcj7/rPDXnXMICLS1zxuk2MDbv5w+9PYo8P4sbgxsbtrsHtWcv4xd7Fq72IiOQL5Mc58qUf89LaJu76szdzVaEtTWr4RJfrVTZc38yFcxd55cUXuTT4Ksmxc9jDz+OMn8PoBiIRkUU1JbVynCOPpIJ4693/kcuTSRIFNjTGST9IgmW4NDiEy+VQVVUJTpKq6kqsinEFchGRRTa5RX7mVQYBBvvp+ed/5stf/jKHDx/mq1/96rQNJ8baMmCfJ5kYZ2xkGDsxRjI5ip0cwxh7EQJ5nGCzhdVeYBahSDuW1c6c5hiKtGM1B4kXtf8I7VZ6LPaZlmnlznG7nOOKtOcrR0Rksskt8g3NvPfPvQVGP5y8YbZFDmBGcOwkdhLs5BiO7cLYBpzRVDK9hOLBPXTuCGO6WhZYUoR2Xx+BWBf1RGi3fOQdXd0bINbbMWWIXS+BWC8dhcbdjQdp3jP1xRa6jKFrxiq1Y/XkbNFlCLdb7AnuprfgzkRktZv/eOSZprZxMPYlHMfGdhI49hhOcgzHHsFJDpIb7xcuwqFOCOxfaBCHePAgfYHD6WCcCrJhP/jDJjucbyzghR3bSjROevoviZla477pp5KW/QHoPDS3vzBEZFWadyA3jgNOEpMcxSQHUmkUO5kK5PYwjn0JJ3EutV6pRHoIedvYvdDIGmmnof9AqpUbaceymgnG45zoy10pzpHuQieNKJ0NMwTkhk6i07app6N34iSRdwn7p++qfjdt3hAHg0qwiEh+8w7kjklinHGc5CWcxADGSWLsBLY9hp0cwUkOYY+/gpMcIzE+UpLKRnpCeNt2z6GFHMI3Q/450hOCkC/dCoawmUiThHrSbd/IITp3HCiQPvESiM0QkGMBvDlrx4PNs+fGMy3yTL2yufF6drd5ifbH5v/BiciKtoAWuY2THMEZH2J44AKJ8VEMCYydSasMYY+fwe0eYPDMLxkZGcG27ZyLpMVKtZh3bJtLc9xPOF+ATefVW7oMxsQIBMIY08WkNneohwgQP9GXJ6jOT31Hb96AHwt4wR/OfzLIycvXb9sBfSd00VNE8pp/ILfH02mVIc69OsroyAVclo1xxjD2CC6GcZKjVF52C8OXBrl48SIDAwOMjo5i23Ypj2Ee4gSbG+jszA3UMfqj4PX2cTAYzwbfWMCb56+AeaRWCvWQSZ84sjULNtOsNIqIFGFBLXJjj+AkhtJ5cINlGYwZx9ijGGcY41wC4zAyPML58+e5ePEiY2NjJaz+PEUO0RnNubDZ20F9/AR9eGk7fIAdnXsIxknl0jt3cGBafqW41AoALV3E2rppsJqZHKcn8t+RdouG7jYO7F60IxeRFWjegdy9polEMoGxR3EcB2NSN+eDG4MFOCTsJM/+v4uMjI0zODiIZVmsWbMGt3s+g2rVk8owlKC12tKFMYaullRPkuZgnPiRbqLeNnbXt7A/QKrFne6euPA+Min1Hb2YWBvdh4IEm5s51A/4A7R1N2BZFj7CmN4OWuonnzjiqZxSiXrPiMhKM+9AXrvhjSQ8b8QYC1xrqLhsF1b1G3GsrRjPJozrMlyWxfrxKGPO5Vx55ZVs2LCBioqKyQXFgzRbFu2RKY/zaGn1E+0+UoJccaYr4B44bOjtiHGoM4r/QCovXb+7Ld2i3sGcUvJFiBzqJBrqpP9AL/ubALbR0RvGD/hb858yYv1RvE35x7wREZl/i9ztoWbDWxhNXoPBzdr129i47S7q39TBtTv2U3X1R7HW7qVmw5+yuf5P2Lx5M7W1tQurbUsr/mg3RxYYySPtDXS3xTCml476OMFmHyF/mK6W9N2UDZ3sCBvC/lTvl+knluJz5JH21HsHm2LpvwYmHRhdJkbTQWv6XanxIAdDXtoW3OdSRFYsk8NxHGPbthkfHzcjIyNmcHDQnDt3zrzyyivm//7mgsln+HzcnH3xOXPh3BnjOE7edUopFvAa/OGJx6l7R+e+pLfNCvvTr4WNP9/7014PGz9eE4jNWEnj9QZMZpWwH+PNbpAuL71M210sYLxgSG8/eVsRkeksYyb6A5r0xbr8t+hX8fbGy1/bs0xe6R4nJblNf3mLtFv4+vINESAiMqEMA7mIiORynTp1ipGRkQXcqCMiIktp/oNmiYjIsjDj5MszefbZZ7lw4QIu1+zngo997GN8//vfZ926dfPdnYiIFOCxLGueN+jA7bffjscz+7lg48aNHDx4kIceeoirr756XvsSEZH8XG63G4/Hg2VZRW/8+OOP84tf/IL77ruPZ555hieffJL777+fn/zkJ3zqU5/i/PnzAAwNDbFjxw7e9a53cfr06VIfg4jIquZ+6KGHPlFXVzfpxUzvFcdxsssfRjxsWV+dXefFF1/k7Nmz2V4udXV1jIyMkEgkGBwc5Gtf+xput5s3velNvOMd78Dj8dDQ0MC5c+dobGx8rY9TRGTF8qxZs2beG3u9Xmpra7nxxht57rnn8Pl8DA8P89RTT/Hss88yMDDABz7wATZu3MjGjRu5ePEi4+PjJay+iIi4qqurZ1+rgGg0ylNPPcWxY8c4deoUx44do66ujkceeYTHH3+cEydO0N3dPceujZnJiWefODlzu3tqmTyaYKS90MTMEwNkpVfEsqw8Q8am61FowBcRkWXGNd8LnQDV1dXU1NSwadMmjh8/znXXXcd3vvMdtm3bxq233srNN99MIBBgYGBghlIyA1gVmPx4ikh7epTA7LCxB+jfM4+JH1q6CPshOmU+zEi7j5A3QGyF3zUqIivHgvqR33bbbcRiMWpra9m3bx/r16/nC1/4As3NzfzgBz/gPe95DydOnKCnp2eGUnLmssw3Z2Wu9ABSk+fRbKFrnrewt3SF8RPCl2l9R9rxhciOgigiUg7m3Y8c4Lvf/S7XXnstv/71r9m+fTs/+9nP8Hq9fPCDH8yu09PTwyc/+Um83mlTLcxTlP4YlCbStrA/4CXUeZDg/gY4GIL0KIgiIuViQS3y3bt3c/78eTZv3ozjOESjUQYHB3n++ecBOHr0KLt27eLOO+/kscce48KFCwurbX0HB/wQ8hUes7z4Ig8T8EbpbGigMzq1tS8isvwtqEVeV1fHfffdhzEGy7LYuXPnpPdvueUWbrnlluzzSCSy4F4rLV2GMBY+n0UIP+GpkydDatLkAgl3b9vUV+rpOOCn0xfCGzjMtFndRESWuZKMtXLhwig9Pcc5c+YS//ZvLwNw8uR5Tp26QDLpcPbsMENDpet22NJlMCad387X8yTvzPQxAnmzOxHafSG8Xi/RzFydIiJlpCSB/CMf+R67dl3HV796jM9+9lkAnnzytwwO/oGvfOVJvvjFr5FMjpZiVzla6ErPcr+QABwPHiSEnwO96RTLIXU7FJHyUpJAvnfvG3nggQjbt19FImHT1vYNvvKVX9HYWM/o6DXcfPPbuOKKy0qxq2km5tech3iQPZ1R/OEuWtIpFkK+kuXfRUReCyUJ5D//+Wk+/ek7eOKJGBUVbrq77+bDH/5jnnsuxtq1f+CXv3yG8+cvzq/wqZMzN0/uMx4/0k10XpMkxwnu6STqDZC9vpnuWx7yzX5TkojIcrGgi53JZBKAD3/4j3jmmRf4xCfewunTAySTSVpatuLxuLjnni1cuDCKZXkK3OGZnrotZ7ZiX/pKpT9s6MqdPL6+g97DqcCeXd0bIGaK7/cdaU/3UolN3rZlfwBvqBNfe+uKn0pORFaGeU/19s1vfpPHHnusqJ0NDw9z//338+53v7t0RyAissppzk4RkTKnqd5ERMqcArmISJlTIBcRKXMK5CIiZU6BXESkzC2oH/lzzz3Hhg0b8vYPtyy4eHGAo0ePcs899+DxLGhXIiJSwIKia3V1NRs2bAAMk2N56nlNTS0333wz3d3d3H333VRWVi6osiIiMl1Jmskjn9mChTPpNQvgT/6Smpp63vCGN/D1r3+d97///WqZi4iU2IJy5JmUykQQN4AFda/HOEkqt9zKZUO/xePxUFlZyUsvvZSnlCmTIhcQabewmucxN+cCLeZ+Zyo7dxLpghNKawJpEaGkFzsNrhv+E9Udv6H6v/0A91v/Bucb76X6VyEaG7dzww03LHhSiZWmpdUP0X5i096J0BMCf+ssY71oAmkRoQSpleyFTlclla0hEk//Hcmffw7rmp3gqcXYYxhjcLkWds5o6TLkG3JrsS3qflta8eOjJ9JFS27MjfSkZj+aQxxu6QrjD/kmBvnKTCAd1gTSIqtF6Vrkl23EcldhH/s/VLzlISqa/xoSwwAFRj2cLtJuYVnpZUrKYXp6IZWSKbQ+QDzYPPF+gVTDpH1a7QSDzZPKKna/kfZUqmOmY5nQQqsfQj2T6xVJNcenT2FXoIz9AS+EDhKMxwlqAmmRVacEgTwdpM89j/37Z6ls+xes1zWRPNoFLvecS4l2NtDTmjMtG500zJDjjQcPweHC60faLRo6dxDOTvWWarlaU9bxhfwT64ShM3c83Xnsd/qxhPFHO9lT4BpASyqS56RG5phWyaEJpEVWtwUH8mxj2+Vm/F/uYvzbD5D49v2Yl34xfZ2ZTGpFZmbrOVhwCrf6jq6ciZLr2d3mhb4T6ZZvOhiGcydmbqErnBM040EOTl0nnXOeycz7zXcsqRZztPtI/lZ5Syt++jiReTN+gj78FBHHyX5eoAmkRVahkqRWTKYYlwcGTmOcJAYXBgtjuWEOWWZvU8PkFxqaZp3CLTd90ZDbkk7nmKcFw9ygGesnmmedhqbZJ44ruN9CxzKjBpq8UbqPpCJ5/Eg30TmnVbI10gTSIqtYCVrkhorOOJ7Ok7g7TuLuiOPpiON+MIb7wRO4HziebpE7sxVVhFT3Oh/h7BjqscC8Z+5c4v2mWvWpFnucI93RotIqoAmkRVa7EuXIM3d2pv5PXdxMtcJzH88k2j+lE16sv/BcnJleHYWu6DU04SVEz9R4FukhlCmzoQlvbkoju9sZcuSz7Xee6ne34Y12cyRyhO5okWkVTSAtsuotMJBngnXqceb/7LtT4rdlWYWLmhR80qmCwP78KYapgTodzLLqOzgwbRLlKWXW76bNG6VzT06Pkkg7B/tmaGHPtt+5yJ1MOlvfVF26DxabVtEE0iKywEA+Pp5gbGw8PR1ckmQyQTKZTE8Rl0w/tkkkkoBrxm6I3kCYpoOZ3LOPkD9Mb6GrdvUdHA54CfnS6++BA1NSHC1dhligD581UWZfIJZTZj0dveleJ5l1elo53DbDAc9hv/OTTq9EZ0irhHyTu1I2BwlmJpA+nGcCaUL41CwXWRWsrq6uSXN2AjiOk10y83fu3H3vtDk7n3766QK33U/ncrm49dZb2bRpUwmrX3rxYDMN3W3EenVDjYiUB8/73ve+7JOpky/btp2dfPnf89xd/7a3ve01rKqIiOSjiSVERMqcNTAwMCm1UrhFftW01IqIiCw9tchFRMqcArmISJnzPPzww9knub1WjDHZXiuO43DHhx5aqjqKiMgMPK2trdknmRx5brfDbL/wJaykiIgU5tm8eXP2yUwXO58fXcJaiohIQZ41a9Zkn0wN5Kk7NFOBHAVyEZFlSRc7RUTKnAK5iEiZUyAXESlzCuQiImVOgVxEpMwpkIuIlDkFchGRMufJnRiirq6O3H7lIiKy/HmefPJJACoqKti5cyc33XTTEldJRESK4ck88Hq9bNmyZSnrIiIi8+BxuVzcdtttXHfddVRUVMw4QbKIiCw/Hq/Xy/XXX09lZaWCuIhIGfI0NTUtdR1ERGQB1P1QRKTMKZCLiJQ5BXIRkTKnQC4iUuYUyEVEypwCuYhImVMgFxEpcwrkIiJlznPq1KnsE2MMxhgcx8G2bZLJZHahdusSVlNERArxrFu3LvskE8ht284uiUSCRCLBhfElrKWIiBSk1IqISJlTIBcRKXMK5CIiZU6BXESkzCmQi4iUOQVyEZEyp0AuIlLmPL//3Qs46RneMv3Ia2trqKmpxeVSnBcRWe48Z8+cwVipgG2MIZFIUFVVxVVXrWPt2suWuHoiIjIbz9rLr8hOvOw4DkNDQ5w9e5ZEInUrp4K5iMjy5unt7WVoaIixsTEsy+L1r389mzZtYnh4hLNnX1UgFxFZ5lyNjY2sW7eO2tpa7rjjDsZtm8qqKowF48nkUtdPRERm4XrppZcYGhoiadsMDg9TUVWVHiwrieM4S10/ERGZheflV15h3J3kXOVFIvHvc1XF1VSe9VDl8nDlFZcvdf1ERGQWnu2NjZytvUj/2O/5zfAxrji9iZ1/2MIbN25jbU3NUtdPRERm4fnx00/zwvqX+d1Nr/AfGq7hBXOaNZfewLXXb2bdhtctdf1ERGQWnl9v+nfOXXEWsHBXeHDcDj+tPMrp353lNnMrdzQ2k0xoVgkRkeXK9eq2AZI3WlhXexioHMFzTQVnrxvgV1X9nBw9CY6NWepaiohIQR5T4+Ba48bxwGDFCFatC5cNFZe7cFc52MlxjCK5iMiy5br6lavxxA3jp0YwtmH0+RGqnrdoSNSzpXor2EmMIrmIyLLl6Xrnp/n26e/yhdOPZl/86LZ7abzsj3FThbHcuIxuDBIRWa48V1RexlWJ17HuhU24XnVTM7CWqxqvY33tOpKJJI7u7hQRWdY8GMP2dVv50PY/S6VQNsI1tdfgsly4LAt7qWsoIiIz8gDcsP5ablh/bXY88mQySTJpA1Z6ERGR5cpjjAGTGlMlE8hTz3WBU0SkHHhMTqvb5PxTIBcRKQ+ay01EpMwpkIuIlDkFchGRMqdALiJS5hTIRUTKnOfMmTPZJ5nuh47jYNt2esq3BMlkEtZetYTVFBGRQjw33HBD9kkmkGeCeDKZJJFIkEgk6Du3hLUUEZGClFoRESlzCuQiImVOgVxEpMwpkIuIlDkFchGRMqdALiJS5v4/50YAt4CvTdYAAAAASUVORK5CYII=
下载解压,
1.shx 字型文件放在CAD可以搜索到的文件夹下。
加载biaoqian.vlx .
运行命令为OURSWR
从别的程序中截取下来的,你运行下,看是否少相应的函数
ok。已经重新编辑了。再试试、
前生 发表于 2024-3-30 11:25
下载解压,
1.shx 字型文件放在CAD可以搜索到的文件夹下。
加载biaoqian.vlx .
感谢分享,不过运行不了,提示:OURSWR HZ 字型加载完成!; 错误: no function definition: SLIDEC,帮忙提供一下感谢! 冲模系统吗?
我们公司的做法是
做好所需要的Block
以及配对的说明(dwg)
在总图模板安插好Block
定制各尺寸总图模板
完成核心设计后套上总图模板
拆图后再标尺寸及说明
思路不一样谨供参考... Andyhon 发表于 2024-3-29 14:02
冲模系统吗?
我们公司的做法是
是这个意思,有没有单独的程序呀! 是整体架构
花费上百万历时廿多年的线上补缀
因应时需在调谐中
完全的量身打造难言通用
用程序是会上瘾的
您要解决的后续还有
套装只能是部分合用
自己开发就是得用时间堆砌 Andyhon 发表于 2024-3-29 16:03
是整体架构
花费上百万历时廿多年的线上补缀
有部分的就可以啦。 你用的pressCAD软件里面就有这功能 有。
简单的说。 逍遥无声 发表于 2024-3-29 22:07
你用的pressCAD软件里面就有这功能
您这是pressCAD自带的,前面设置比较繁琐,有没有lisp直接能做到的呀。 前生 发表于 2024-3-29 22:14
有。
简单的说。
能否共享,谢谢!
页:
[1]
2