铝板展开折减系数换算快捷lisp
本帖最后由 jerisonfang 于 2023-7-21 19:17 编辑使用方法简述：
cad命令输入zj，空格确认，提示输入折减系数（即铝板折弯90度时候的折减数值，比如3mm铝板单边折减是2.5），输入确认以后提示输入角度，输入确认以后提示点击插入点，点击完即出现折减换算图形
data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAioAAAFLCAYAAAD4cKfRAAAYGklEQVR4nO3dT4yUZb7o8d+gcMxd6c7FpRsQoyY3tt2zMkTSaPwzMXGD4YbODSNMZpgFu4nJGCXGoHFOPLM6LGTMgENumlwii0tijjgZ6WDIrA4dzoZjZIBuNu50afTo3AW3aqqaqu7699b7q/f9fBKSomm6nn5TVH953ud93p9sf/SJvwcjtWXzffHd99+WPYzKcnyL5fgWy/Et1gP3Pxhff/NV2cOotHG/hjeN7ZkAAPokVACAtIQKAJCWUAEA0hIqAEBaQgUASEuoAABpCRUAIC2hAgCkJVQAgLSECgCQllABANISKgBAWkIFAEhLqAAAaQkVACAtoQIApCVUAIC0hAoAkJZQAQDSEioAQFpCBQBIS6gAAGkJFQAgLaECAKQlVACAtIQKAJCWUAEA0hIqAEBaQgUASEuoAABpCRUAIC2hAgCkJVQAgLSECgCQllABANISKgBAWkIFAEhLqAAAaQkVACAtoQIApCVUAKAkN64tx41ry2UPI7V7yx4AANRNI052PDZb8kjyEyoAMAatMycCpXdCBQAKIk6GJ1QAYMSc2hkdi2kBYEQai2MFyugIFQAYkR2PzbZFiit6hidUAKAPLikeL2tUAGADgyyK3fHYrFNBIyBUAKALi2LLJ1QAoEURlxSbVRmcUAGg9ux3kpdQAaCWxh0nZlUGI1QAqBXrTiaLUAGg8rKc2jGr0j+hAkAlZYiTxiXKDE6oAFAZ//7Xf2s+zjpzYValP0IFgInXmLX46ZM/i6+/+ark0TBKQgWAidTp1M4D9z9Y1nD6Ylald0IFgImRYd1JJ64kKo5QASC17HESMdi4zKr0RqgAkE7WOIkwezJuQgWANLJGQFHhZFZlY0IFgFJlnT0Z1bjspTIcoQLA2FU9Tvp9zkzHIBuhAsBYZI2TiPJOOWU7DhkJFQAKVbd1J+tpPI9ZlN4JFQBGLuvsSVnjWvtcjXUrmY5NVkIFgJEQJxRBqAAwsMwRkPWUE/0RKgD0LWsETMLdkxuc/umNUAGgJ1lnT1rH5e7J1SNUAOhqEuKkdVyTcvdkeidUAGiTNU4i8p5yojhCBYCIyBsBmcNpWNapbEyoANRY1gjIOi7GT6gA1EzWCMg6Lsp175bN95U9hsq5557NsaXsQVSY41ssx7dYZR3f//yPvzYfP/r4k83HGX4GNMY2inFt2nRPiu+pH48+/mTcuLbc9v1nNu7X8L3fff/tGJ+uHrZEhONaHMe3WI5vscZ9fOu27uTHH3+Y2NfvpIx73K9hp34AKibrKZSs4yI3oQJQAVkjIOu4mBxCBWBCZY6ArKecsnKZcndCBWDCZI2AzOHE5BIqABMgawRkHRfVIVQAksoaAVnHRTUJFYBEMkdA1lNOVWGdSmdCBaBkkxAnEfnGRj0IFYCSZJ2hECdkIlQAxqh1K/tMESBOyEqoABSsNQIeffzJVFulZ53VqSvrVO4mVAAK0G2GIsMN88yeMEmECsAIZZ2hECdMKqECMKSsEZB1XNAPoQIwgMwRkHVWh95Yp9JOqAD0aBLiJCLf2GAYQgVgA1lnKMQJ/ZqbnYlHHt4ZX3x5Pa4sXy17OD0RKgAdZI2ArONiMhz59S9jfveu5u9PnV6MY+++V+KINiZUAP6/zBGQdVaHYqy3TmVudiYiYiQzIgcPLMTT80/FnudfGvprFUWoALU2CXESkW9slOejxQ+bj5cuXY5Dh4/0/HePv/9B/PkvF2PnQzvi6fmnYnpqa0xPbY2TJ4739XXG6SfbH33i72UPomq2bL4v1c6TVeP4Fqsux7esGYqNjq84Gc4D9z8YX3/zVdnDGIluMyoXL5yP6amtbR8b9BTOyRPHm6eCXl54padZmnG/R5hRAWojawRkHRc53by1eleoDHoK59DhI83X34svPJdyge2msgcAUKQb15abv3Y8Ntv8lUHWcZHbzVsrzcevv/l2rKzejoiI6amtcePacnMNS69OnV6MiIjt26ZHN8gRMqMCVE7mGYqsd08mn24Laq//7Ubb7/c8/1LbKZyPFj+M1998O86cPdfX823fNjXcgAsiVIDKyHplTOa7JzN5vvjyevPxzod2RMSdUzj79+2Nd956IyIi3nnrjdj50I70lx73QqgAEy3r7Enmuycz2VrXkbSerjlz9lx88eX15lVBjXUrv/nt0XXXnjw9/1Rxgx0BoQJMnKxxEpF3VodqWVm9HdNTW+86XXNl+Wq8vPBK/P53x5qXHq93Kujoa682F+Z+tvT5WMbeL5cnF6Aul3eWxfEtVtbjOwlxErHx2LIe36qo0uXJDZ3WqbSuSen2mmv9nIZTpxeba1x+9Yuft1091Ou/K5cnA7TIOkOROZyovpu3VpoRMjc70/HUztp1KxF3Tgd18vqbbxcz0BEQKkA6WSMg67ion9Yrfx55eGfXNShnzp6LM2fPdZxdibhzCmmjNSxlEypACpkjIOusDvXV6cqf9TS2x2/cPbnxNTIHSoNQAUozCXESkW9s0O3Kn17+3iTESSuhAoxV5gDIPDbqq9vGb40rf6pOqABjkfX0iThhUvV7X59JJVSAwmSOgKzhBLQTKsBITUKcROQbGxSlsYD22Wf2xPZtUx1PF62s3o7Plj5PueW+UAGGljkAMo8NijI3OxNHfv3LjpckdzI9tTUOHliIgwcWBrqhYZGECjCwrKdPxAl1NTc709w+v5uV1dsREXHz1mrzY61Bk+2GhrbQL4Atsovl+BZro+ObOQKyhlMrr99iVXEL/YZOV/60WrsLbcPSpcvx579c3HDflLWR0+25bKEPpDMJcRKRb2wwLnOzM22RsnTpchx//4O+9ky5snw19jz/UvPf1NHXXk0xqyJUgI4yB0DmsUEZfv+7Y83HLy+8MtSmbqdOL8bBAwt9bSRXJKECtPnP//hrROQLAHECnc3NzjRP17z+5tsj23l2+7apkXydYQkVoC0CHn38yVRrKCZh3QmUqXHvnogYydU6WWZSGoQK1FS3GYotm+8rYzhtzJ7A3bptpd/QuJpnGHOzM80rgD5b+nzorzcKQgVqJHMAZB4bZNa4k/Kw9/2Zm52JjxY/bP7+408+HerrjYpQgRrIevpEnMDwWteknDxxPA4dPtLX3++098qp04tp7rIsVKCiskZA1nHBJGtcqTO/e1dcvHA+fvPbox1Do7Gd/s6HdsTT8091nIU5dXoxxWXJDTZ8K4ANnYrl+HY3iggo6vhmndUZN6/fYlV5w7eI9Td9u3jh/F3h0Vi30stpoZXV210Dp5UN34C+ZJ6hyDw2qJo9z78UJ08cb9sOf6NAadyM8ONPPk1zqmctoQITKusMhTiB8jTWp+zft7d5t+RWN2+t9rSdfiZO/RTA1G6x6nx8xxEBgxxfcdK7Or9+x6Hqp34iNr7nz7Aa61i6xYxTP0CbzBGQdVYH6F+nq396XbdSJKECCU1CnETkGxswuMYeKqdOL8bHn3waL77wXBw8sBAfLX5Y6r91oQKJZJ2hECdQbUdfezUi7twrqLEN/5Xlq3H9bzfinbfeiP379o5ke/5BCBUoWdYIyDouYPQa9/dZGyNnzp6Ld956I559Zo9QgTrJHAFZ754MFOfmrZWY370r5mZnOq5HuXlrpYRR3SFUYEwyx0nmuycDxbv+txsREXHk179s24L/5InjbX9eBqECBZqUOMl292Sgu43uojyIM2fPxbPP7In53bvixrXlWFm93bz6Z+nS5dJO+0QIFSiERbHApDl0+Ejs37c3fvWLn8f01NZYWb0df/jjn0qNlAihAiOTOQKyhhOQy5mz50oPk7WECgxhEuIkIt/YAHolVKBPmQMg89iAwRS9ZX52QgV6lPX0iTgBqkyowDoyR0DWcAIYJaECa0xCnETkGxtAEYQKRO4AyDw2oBxF7KWSlVCh1rKePhEnAHcIFWoncwRkDSeAsggVamES4iQi39gAyiZUqKzMAZB5bACZCBUqJ+vpE3EC0D+hQiVkjoCs4QQwCYQKE2sS4iQi39gAJolQYaJkDoDMYwOYVEKFidB6+mTL5vviu++/LXlEd4gToCx12fRNqJBW5giw7gRgPIQKqUxCnETkGxtAVQkVSpc5ADKPDaAOhAqlyXr6RJwA5CFUGKvMEZA1nADqTKhQuEmIk4h8YwNAqFCQzAGQeWwAtBMqjEzmAMg8NgC6EyoMLfPajsxjA+ik9T9W3T5Wp/c0ocJAMs9QZB4bAP0RKvQscwBkHhsAg7v3gfsfLHsMlbNp0z3x448/lD2Mkfj3v/5b8/FPn/xZ83GZr5vG8c04tiqo0us3I8e3WP/0T/9t4t8Dfvrkz9re3zr9eev3OO7vd9yv4Xu//uarsT1ZXWS6ad6gMq/tyDy2KqjC6zczx7dYD9z/YFT951rr91fGjQnH/Rp26oemzKdPWsf26ONPeqMHqAmhUnOTEietY9uy+b4yhgNACYRKDU1inABQT0KlRjKv7cg8NgDKI1QqLvMMReaxAZSpsUi208frRqhUUOYAyDw2APIRKhWROQAyjw2A3ITKhMu8tiPz2ACYDEJlAmWeocg8NoCqqvJNC4XKhMgcAJnHBjCp1i6obby/dlpkW2VCJbHMAZB5bABUh1BJKPPajsxjA6B6hEoSmWcoMo8NoG667bHS+udVIlRKlDkAMo8NgPoQKmOWOQAyjw2AehIqY5J5bUfmsQHUWeM0T53fn4VKgTLPUGQeGwDr22idSpUIlRHLHgCdXth1ebEDTKo6v08LlRFYGydbNt8X333/bYkj6i5jPPUr8/GtAse3WI5vsR64/8H4+puvyh7GSHU79VOXeBEqA8o+cwIAVSBU+mThKQAZdFqnUsWfTUKlB2ZPAKAcQqULcQIA5RMqLeoQJ3W/Hh+AySJUwroTACZTHfZTqW2o1GH2BAAmXa1CRZwAwGSpfKiIEwDqoKo/4yobKtadAFAHVV+nUqlQMXsCANXyk+2PPvH3sgcxrCqXJACM2jD/mR/3/aoqMaOSbfYk803HqrCPSubjWwWOb7Ec32LV6aaEdbGp7AEAAHQjVAAgqcbShjovcRAqAEBaQgUASKsSoVLnKTEAqLJKhAoAUE1CBQBIS6gAQEJrlzXUdZmDUAEA0hIqAEBaQgUASEuoAABpCRUASKbbwtk6LqgVKgBAWkIFAEhLqAAAaQkVACAtoQIApCVUACCRja7sqduVP0IFAEhLqAAAad1b9gAAgH/Y8dhs2+9vXFu+62N1YkYFAEhLqAAAaQkVACAtoQIApCVUAIC0hAoAkJZQAQDSEioAQFpCBQBIS6gAAGkJFQAgLaECAKQlVACAtIQKAJCWUAEA0hIqAEBaQgUASEuoAABpCRUAIC2hAgCkJVQAgLSECgCQllABANISKgBAWkIFAEhLqAAAaQkVACCte8seAABUwdzsTLz4wnPx9PxTzY/dvLUaf/7LxThz9lyJI5tsQgUAupibnYkjv/5lRETcvLUSx959r+PnHX3t1Th4YOGuj09PbY353bvinbfeiFOnF7v+fboTKgDQxSMP74z53bvW/ZyTJ45v+DkREQcPLMT2bdNx6PCRUQ2vFqxRAYAB7d+3ty1Sli5djpcXXokdj802fy1dutz88/ndu+Loa6+WMdSJJVQAYEC/+sXPm49PnV6MQ4ePxJXlq22fc+jwkTh1erH5+06niOju3i2b7yt7DCOR6fu4557NsaXsQawj07EaRPbjO+kc32I5vsXatOmekb7H3XPPP1ZIbNq0qe1rPzHzP2J6amvz9//8L//a9bn/+V/+NZ6e3x3TU/89IiL+1/7/GWc/+r89jyPT+/a4X8P3fvf9t2N8uuJk+j62RK7xrJV5bL3IfnwnneNbLMe3WD/++MNIj+8PP/xXy9f+se1rP7Rjuvl46dLlDZ/3s6VLzdmUp+efiv995v/0PI5Mr5lxv4ZrvZi2sZp77SKopUuX4/j7H9w1fTeIbivBO3l54ZW+nvPGteWB/h4A43f9bzfKHsJEqm2orBcQ87t3xfzuXbF06fLQq7O3b5ve+JMGcPLE8UK+LgC9+eLL62UPoRZquZh2/769Pc1yzO/eNXQQbN82NdTf76TXS+EAKM6V5avNK3p6ea9/9pk9zcc3b60UNq6qqeWMSusq7ZXV2/Gb3x5tnjpZezpofveumJudGfjUSmOh1ShmZyJECkBZ5nfvihvXlmNl9XZ8tvR5fPzJp3H8/Q9ifveumJ7auu7PirnZmbb37o8/+XRcw554tZtRmZudacbDyurt2PP8S20vrCvLV++6lOyRh3cO/FwNw9bz/n174+KF8yIFoGTTU1vj4IGF+Gjxw/ho8cPmxxs72K61f9/ets9bunTZusI+1HJGpeGzpc+7/lnroqedD+0Y6Ou/+MJzzcfD1PPFC+fbLoFrTDWKFoBinTl7Ls6cPdd2H5/W9+ON7N+3N955643m71dWb9uZtk+1m1FprdjWG0et1Rong67Ubl1IO0w9t84Avf7m217kAGN2ZflqHHv3vdjz/EvNHWdff/PtOHV6MVZWb/f0NZYuXY49z79U8Eirp5YzKqdOL8bBAwsxPbU1Ll4437ZGJaJ9HcjK6u2B73rZWFzVeBGvXV+ysno7/vDHP/X09V9/82133wRIpPGevN6NBr/48rr37yHVMlSOvftebN823VwA1XrusFVjoe2gWqcHG3uerP3zd956I371i5+vW9k7HpsdeAwAlOfK8lXrUYZUu1M/DWsXzK7VmKIb9AW2f9/e5uONzmc2ZnYAgHa1DJW52Zm4eOH8unupNC5Da71ypx+ta1waa0ta76b58sIrbXfUnJ7a6o6aALBGLUPlo8UP2xaott6Se21AfLT44UCxcuzd95pfc8/zL911frJxGfTrb77d/Nh6i3sBmGyNbSZaf508cXzg/xDXRe1CpXXWotPpnU77qHS7Nn4Uzpw911xs29gwCIBqmp7a2vwVcWf2vts6Se6oXai0zlocf/+Drp937N33mgFR9H4lrfu5DLq5HACTo/Ef5R2PzcbK6m2n/tdRy6t+Iu6c8tlooexnS58317EMs40+AJw5e655I8PWnyf2Vllf7UKlnx0Fx6V1Yzh34wSoLv/h7V/tTv30sx5kmMWtFy+cjxvXljvun7JW66klL2IA+IfahUrrepD1Fsnu37e37cqgfgPi5q3V5uP1zj2ePHG8+bj1aiMAoIah0npzwPndu+LihfNtMytzszNx8sTxtptI/eGPf+r7eVoX6h48sHDXJWiN52mdTVlvcS8A1FHt1qhcWb7avNdPRKy7hX7EnVmOTvdoaL0j5tKly3fdKPDK8tVYunS5GSLzu3ete/XQqdOLTvsAwBq1m1GJuHPp8Xrb5zd0CpB+HDp8pKfTOadOL657UysAqKtahkrEnVhp7EK79hbdjd1qh4mUhkOHj9y1223D0qXL8fLCKyIFALr4yfZHn/h72YMY1o1ry6XdYfjihfNx89ZqW9Rs2XxffPf9t6WMZyNlHqtRyXx8q8DxLZbjW6wH7n8wvv7mq7KHMVLZ3rfH/Rqu3RqVUZue2tp2JREA1TE3O1PIbVRu3loxm94joTKExqXFrVcSAVAdjzy8s/DbqLC+2q5RGdbc7Exs3zYVLy+84modgIo6c/acPa5KZkZlQFeWr7o/A0ANHDp8JI6+9mpzW4uV1dvxm98eHepr+g9u74RKF61b35exiKns5wfgHxrrSQ4eWIjpqa3x4gvPWWMyJrUPlV7uxVO2bmMUMADjc+zd92L7tumY370rDh5YiI8/+dTMyBjUJlQmIUj61el7Ei8AxTl0+Ejzvff3vztmCcAYVC5Uqhgk/TD7AlCs1998O955642Yntoa+/ft7XibFUanMqFSZKBUIX6q8D0AZHDm7Ll49pk9ZQ+jNioTKq0zBqP+odzvbMQodu0b5fdQ5LEBqKNR3GKF3lQmVFptFBZV+2HttA4AVVXJUNnIJIaMGAGgjmoZKhvJEAUZxgAAZbOFPgCQllABgMTqPsMuVACAtIQKAJCWUAEA0hIqAEBaQgUASKsSoVL3FdH9cKwAmCSVCBUAoJqECgCQllABANISKgBAWkIFAEhLqAAAaQkVACAtoQIApCVUAIC0hAoAkJZQAQDSEioAQFpCBQBIS6gAAGkJFQAgLaECAKQlVACAtIQKAJCWUAEA0hIqAEBaQgUASEuoAABpCRUAIC2hAgCkJVQAgLSECgCQllABANISKgBAWkIFAEhLqAAAaf0/SSPYQw1sGRcAAAAASUVORK5CYII=
(defun c:zj ()
(setvar "cmdecho" 0)
(setvar "blipmode" 0)
(setvar "OSMODE" 18103)
(vl-load-com)
(progn
(command "_DIMSTYLE" "r" "AVA-01")
(setq str (getreal "请输入折减系数:"))
(if (= str nil) (setq str 2.5))
(setq ang (getreal "\n请输入角度:"))
(setq ppp (getpoint "\n请输入插入点:"))
(setq xs str)
(setq pp1 (mapcar '+ ppp '(50 0 0)))
(setq pp2 (mapcar '+ ppp '(50 10 0)))
(setq pp3 (mapcar '+ ppp '(0.0 -10 0.0)))
(setq pp4 (mapcar '+ ppp '(10 0 0)))
(command "PLINE" pp1 ppp "")
(setq ss (entlast))
(command "copy" ss "" "0,0,0" "0,0,0")
(setq ss1 (ssget "P"))
(command "rotate" ss1 "" ppp ang)
(setq ss2 (entlast))
(setq ss3 (ssname ss1 0))
(setq obj1 (vlax-ename->vla-object ss3))
(setq pt1 (vla-get-Coordinates obj1))
(setq p01 (vlax-variant-value pt1))
(setqp01 (vlax-safearray->list p01))
(setq p11 (list (car p01) (cadr p01) 0.0))
(command "peditaccept" 1)
(command "_pedit" "m" ss2 ss3 "" "j" "0.0" "")
(command "offset" xs (entlast) pp2 "")
(setq a1 (entlast))
(setq obj (vlax-ename->vla-object a1))
(setq pt (vla-get-Coordinates obj))
(setq p0 (vlax-variant-value pt))
(setqp0 (vlax-safearray->list p0))
(setq p1 (list (caddr p0) (cadddr p0) 0.0))
(setq p2 (list (car p1) (- (cadr p1) xs) 0.0))
(command "DIMLINEAR" ppp p1pp3 "")
(command "DIMLINEAR" p1 p2 pp1 "")
(command "_DIMANGULAR" "" ppp pp1 p11 pp2)
)
(setvar "OSMODE" 1719)
)
感谢分享源码 非专业，看不懂了
页:
[1]