SLW210-Ok今天早上尝试了一下,我创建了一个新的Windows帐户,打开了Autocad,运行了lisp,得到了相同的结果,没有值显示通常在哪里指示长度。
不确定这是否重要,但MEASURE命令工作正常。 有趣的是,我在AutoCAD 2011上运行了Grrr的第一个代码,得到了这个。。。。
Command: LMEASURE
Enter an option : a
; error: An error has occurred inside the *error* functionno function
definition: COMMAND-S 刚刚遇到这个可能会引起一些兴趣。。。
http://architects-desktop.blogspot.com/2014/11/aca-2015-cannot-invoke-command-from.html
https://www.cadtutor.net/forum/image/png;base64,Ivborw0kgoaaaansuheugaabzmaaaaegcaaac/zcl/AAAgAElEQVR4nOzdZ3hc1b0/er25r+4/CbbazGg06rYpQfSOMRh3S5asXkZdo15tybLAVbKtsaw2ZU+vkrHgxLEgcAjHSc7JgSTAuYE/rjnlubmhjadoevghmmkxnf7clr7732zegziz5+3n8JNaeXdZau+d56jdryjwaaaaaaaaalxivrobaaaaaaaaaaaaaaaaaaaaaaaaaaadccjlmaaaaaaaaaaaayw3jlaaaaaaaaaaaaaaaaaaaaaa aaaambyqzilaaaaaaaaaaanyqzaiaaaaaaaasnyszaaaaaaaaaaamsnyswaaaaaaaaaaadackmycwaaaaaaaaaaaldckmwcaaaaaaaaaaaaaaaaldckswaaaaaaaaaaa dldcksaaaaaaaawhjdmgsaaaaaaaaaaacw3jdmagaaaaaaaacw3jlmaaaaaaaaaaaaaaaaaaayw3jlaaaaaaaaaaaaaaaambyqzilaaaaaaaaaaaaaaaaaanyqzaiaaaaaaaaaaaaaaaaaaaaaasnyszaaalmaemiyjvivorbsxexv2texmtlz6pkrnug54ryzgorfgggplwjnwogsm61ycaaaaaaaaaaaaaaaaaaabyszaguvn/vjie4qsnnzzydedopjk9o5f8rcvclxmq44oywulxj87xg1/dsgybaaaaabwwwwwwwwg1 DYSZAGUVLZ9LAXX/mhqdVGjFU0Vu7/iu82R2KZu3gjhxa9AQMvjZW/IMRLXQGZXJCY4FWVAUSTK7QKK6AAAAAADAWDRMVSLAFY/fn7q9piYmJiY20/9/Msvv/zyy+fKYzg/R7DLSPYRJfzeLR/vOJY/t4J7uD75rjC2Y94zRD1BK3D2niuPiYm5/fbbA3Xeyzv+s3v8wvauydxfpbuaaaaaqjdgvmf3oo4/fnf/Faz/92Ws/+elPf/bGJ4WZv9+f+bvox8wnfjtr38v9cmbgah+MR2/7I03JwF/NUo5o79eNtRn1Dl7YI+jvhmo591dsnfs+xd0mruf Kvegcmiymjlutjjdim8yvxex+zdsktsyx0d5oz4ubitewonaio/P3ktKjbPUcuXKQofdPAssfOd7RwjtD5EZKJfcKE6kMFpw9X9v923NPj2Asw+6++PVJXi/0u8yerknm9m8hxblkfm0h7xhlbvltixoscscijky5fxhyne1GEN4dYdxSQR4Xat4Ga6/WGwAAAAAAYOVEM5n97W9/++prP/nhj/7ln3/8rz9+9tcompuf+T95mR/nZv7Psbo/i58fwa7cqiuhje5irc4smsp9ohb7pkb7u5ktb3agtu/sN5LXQHRNrC7R3bGk4nqFFstnqe11XuT4Fklj9U4oNKGUZ+0svvspdec3susoky1fpbhpfi5jrc7sph8f5axxdshdu+AsBLs2yT7wckjaCQi/+2IXsPA4glMmyNwpS8K5XEVjbME9xL1guN3iDmZYsxks9JYK/OSCZGYAAAAACWJKKTZH799DDXRRZ7YJ9DVVYDH7LJ7E9++vqV+fn33n//C13/Z0cq/MnsRzkZvy68/DMXZ0Fluaagtva9XUSSQWSVMRFNEjqCpF31dTjjELaXkprbC1wQ5MD2eCz+ZPUW6LGZS8Z1YGVGPZ7IDYL1NJO4O2NURGYSDHOL0QIPCHBWZXDGUHY8CKSV2CUEGLC775W4LPV894NYM5RTPLWDEJ2LXB682863VFPG8K5Z/GLBH8XT2YXEESHMQUAAAAFGBUHMV/7663/919defvkVNpn9+Vtv//73n/DW+FVZ//8w4u/a3jso5yM3+zN+PXujN+9MB35OQ Fahbm18Dizqwhlzkahdygwz1d2kgys6neh5tvhfhs0xi+llszsqisfbbbdc6i/fdUFoJt59agvpcybwxjRo73k9CrJDegrMvQjokzcs5gyJ5KvhJ7PU4mPBCQi/+6eeowxxf1sugh6bsred3gbbdi/+aYr8C/GXRTBK9MF3LJIZGEAAAAAFZAFJLZT9/+3y+99PLLL7/ywx/98wcffBh85c8tQ2wy++GujP/Z0MZKRWCAEUFMMWGEA4OKVJRLL1287PNZFZSRJGOWW09MYFAFO6JC2QYUJ2SWXK17WYSQVQ4NMFYPVZLBKOD+14L0GNNGAYSWAAAAMCQFMKY+9FHH3/vey+99NLLl3/wwz/+8Y/hbPKnH1xkk9n387P//OV3IMWAAIGQQ YMKTTCW0F2KTP4ACSOAT9JJBNRNM6ANS9YGLTZW/AW+ekb/D06JFSRFDDVYW8XSSBLFLZSOYBYLIGR7EH+QcDJEMhvebAaRJ7NB1g6dzIY1m8Eif/FH3W2NQPC6WGTiHFS4VaniqaaaaaaaidFizz/adXLrPJ7G9+898ej+fvL2i/qt34RcPdf33v39kV/npW+WFLHJ8H8IT/mAa+nBXxvs7Mz4+0xNHA4K4HPWUJRB9BJV8XTJ3DTL16G3MKPNJD2VXLNPDQJBZBCUJYXQURDCWEJN/OHND8L4RAXHKGGB82KFPDmkmmyFxK3L/KVQFZEBRVKGKGQEGGCOUGIXK91FPZMLBEHNHINMQIK7J86FQGS2AANIIRPGPC53MBR9AF5FMKHEJCOIKCOI rei1yierlsg+pYBdBiF+eims4lgp9aaaaaaa4igomf3g/Q+en3vhe9976Wc/e4Ndwiazfyzf8Inyri9/9k8eXzL7h+Ks//NUxd+ufs6u9rern/93zWPv78x4b3v6tf/+QLjnK/bnJaWz5J8t9vciasohedllvrkjv5lihiudxxdtofd0lea96dknsoazbyir5b8inbtgggtrpbcmz6tyl/pTLi2QyoRyLzNlpm5bOQZDZUNMp/kUhmKRvTB5WHH9vxu8mvW+ttagnmsup5fvsfdhnihms1ot+gwwzzzpzycgcmsm6cklj5knocowm8wkbljbrircn+9gwpwtjx4yuamk6bswqaaaaagewkjl9/Wevs8nsJ598yi75+0+++xe18veVd/1mt8b7v7 OZO++uW//+3C6auHcz/Kyfhwd8Zvjzf5t716+SKbzH7CDAn37M1DT7/L8XGCSWZ0MSOQNBNx7M9LSP8FE8F7I5VDEKVYZQMricgt2TDXaekswbru9dyck3G1Gudaaaaaagfbeyeyl7849P/fCD37wI97yj/vK3t+R/v6O9C/fed3j8Xz5zuvsjx/3lfnX+DVVZ9LK9JC9JCI9C5NZJZ9OZCNNTKVT96TXEIWUL73CBKVOZKBS8VYW4LMZVPKKAK+1VQ6u6X7+cD677y6Jby01J/MCMNZBKUEFKYLQ8SF6UJWZHMDAGARGPRO5TDBMUOAAAWI0KOMT2F+r2n2uPvvsv/8Rb/rtD5b/END5B Fhr3rnxrrzu8xiuxxmd/fF3h8rJ1T5q3fve9vRfbUsX7lmQzJJL3mryBp2B6ley0NUfyAaSWW/i+colIhUVn2eWqFR96RVJ6WzTS281+RrDnaMgGDJ+5axpnmab87itj5etlfeeehvnjwsaaahrjtm/rVh49d1G/86p+Ut/2Sw/KPczI9yM79693WPx/PVu69/nJv5cW7mp4OcZPZ/+srdt2a9wsw3wdwqk77z6hzvamqmma9ceks0vclf0scl06texd+jax4lehmybcvf3rf296ityrtizdj8ubgaaaaaaaagovckiszfzhs8v8zn/lZ349/7rH4/l6/nx2xzz8cqsbxw1ayy6uzfxw52htj3bos7levsfop9/yuitnpr5poomqofssys8b/hybqndzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz3PDWF40TB5+VUQBVPZZOCSZAAAAAAA0YUKTM/aFp5yz8/VvFpUdanRVlsMvuX+dfZH/94jJPM/veB0rCTWX+pKWXCWeLvzzedDswJu+iaWd+EBS9V4U4V641ZW5VSNDA2ZJQFI6IzrtilaaaaaaaAAAACw1kQhmf267wne8qsnKj8rzfqsNOsvv3jD4/H85RdvfF6a9Xlp1tWTlf51At8A1rxHuGduMis23ap3uTes9M7ZGogyFzvPrMd/FKKI1b8k3JleOUEqGc5S/k7om0uwzkzbqaaaaaaawjs2a1rv/XbfyqduPf/umncvmfhyuvmmy4wrhhr/+hsfj+eu/v3g1cspvyg1dges2auxl7lj7cfmkhdp5ndn8fpkqallwlfcp6a1a1a1a1 rjwqviwv+bwpgr1rs+Ma2tbw+c7xkLkpPyglQyEeb2juiaN5z1L0cyC7B2/fLiyBH3m6v/gaaaaaaaacwobel3977skbzh49uku/+pm5zfg76s3samtn/7jzfYH786E1jtv2seY5PZa//vLyJpAwCIu8z0ejGX/QvnZ4d9S4dn5xeyaWBZsI0D++esIbLY9wJ1b5cZbtNpB+JtSO0ytW+C14nuiW57mREcUqz9IkdZTh9cGj1sfTWMFecvntN874MF7Zv/g6axar8z40wczvmfezljnzfjupdlhoxlaaaaaaaanacijzjj8fzdd8tx9vuvfaz4a+vfte/8C9q5dd1G7+u2/j3/3zD4/H8/T/f+Ev9xr/Ub/zrWSW7wufnpz7clfH+zoyPD5ZF2IDF4+QFS4VNAGKZIGW+QKsjPnZYV8uOD877IsOLzOBtJD8exibEkuDHdSfUfIO5VvOOeplprd3eHaWoSWzl5lehmFEDkndkN5uQdd6mVl+V9JFIVPUY0WVM0TDLHNMH+WY0ZS8HRAltKnL04eNv/4WugV33QfGbn4y4Xt/ir9eertumyxvbxheg+vmfnybmjsgm4cmpiuaaaaaaaa1ikyezffn6ztwa/bL7nbx/8ezib/OkHF3+9O4NNZr/83z+LsAEAQHeZE1r6ElPBUlp0SN80rGSWvh/elpf5cetsjllrinvhlrdpnath/ca0bqtttebvpzw4pz17mh8kb4yq1/tMXJ/uy9c8hs+b7iOa7/5gevRYf29vb//1密码7HV3UQN/IxV96rn34k9kpduVjUy/Me3d2xP7Sy+ZTA329vX1HJi6x+/j05al+5VI1ZHHEU3JHEPGCQYIGRP39NIHHO/ni/942c62pm/GLP3HHH7PRFXBP1PU61YKSWC87R25HY2B9F2G99IO3sfX/xbcrJLMAAAAAAACwhkWazHo8nr9YD12r2fDnqg1/Um74+vvO4Cv/8Zmp3+zNYJPZP0xPRn50nsSSCyH/rp2ganchsvbixbzeknreumrttogxtpaz2plqwkrd3nbm/xrLCSZFWs3hTAqZsPVoHMZ+Dfibu1tK+do7DLxKPvaZaZ/6uvp2tx7jkpzm/uTDa55rH86N0U9H35GJi29+es3juxbluxfj7p/+qsvj6px9eehp6d93iu xwb6+o5oX3j302ueax++MNnXZ/wreqyizfpnt59gz/9kpPRfvqq/cQR7wG++I/vjHr3RbHImln2JV4yG/irqjn96rxu7acaaaaaaa00uktm/+nzaudy2wt2auwgpw9x/uxfnen3948xcnj32Uk8Ems5+M9UV+aKEggWwn83on8zqSWbhBiFSFcj7k7580lchchTWhtPg28OF/7qYe+LBCZFQYCQS3EAYZAABC5EBZAAY5IDZIFA7RCLH9I4STWAV/DH8EPLFTZ0EZY8VJXMLN/QXFYKTPDTpJLXZHD2LFYTYTVFXHO94X7TF6X++uLk8Oy859qPzYeJMtj52eE+44/IY1xmek8/95+CzX0+uDTqC2avvWodJCtq/7/VJOGOPOP6X 3EE2UCEKXM/WsSBbBvNQW+hpGdE8a/B/8UMZgTBgAAAAAAANa4KCSzHo/n71c//8p8iE1mvyjP+rws6/O6u784Xvknx/AXuv7PjlT8Lj/zf/IYP87NZJPZP5IGonJCITAEJ6Q8VWBPNJ/vr3Vz+7+tWGuouzpad1zbnv3cojqbevkx6kv36tmro7utdz8xnpxef/1x862tX3nltc773x82W9zye9861Eq96PL6VL1/yvK1ilw+97fG8d27I92rra1f4xwZYKuIFpOR3ZFGDz7BqT4NPbcCbwXZBNbOcV5exZjZEJbHoxAnkbA/cQl/RMXrVepidGYD7FV2vWg8LgllyjZ/PHOvl6GMuX+Nt9emLk2y66z+G58qFoeHZec/hr2hpc3nz6cvtv ooco0y08dpwjvui6k10yusmfunso/4vzHs+bgxxt3in80a88wcaaaadadsm6yszrl//pp13tepxnzj8rzfpdddanrvmffgb+fn+mP5n9Xefea1eWcG5ZNoq9p/2Fz65+Nf/+H/qt/2b+x/9iX6o59yp1NoMrltcued5WDb3t8fCTWY/H43nnNZXlPY/Hc2nosr8o7NLQ5Uu+yNXj8VyxvKB6kVwh8BL793NDz/l2c7cxczdfv8ngpt6xwo+rwqewy5yaemjshvhlmhwhtxqzpzgn5dgc7b8f8tv7uiswzb7qpskepkyqsiwmcjjjdu2ad57a4zp+JHR+dpitwSW+1Gt+dnh49s0fGYesrwq/dsw4a2gvr+/ONk/eknsi8wwz8g8 EWM8+s560mWiWsf5NLp7lR7Du+XbyaaaaaabglyPMMSV6+l++86exls9q7yKT2U9Uj3021X/tyutRPxyPv072iOutc9+ZLzvzL/3Wf/vs6lfmf/wvkXlmvQnsFctrlzxBklkybOUns+XWRM0SW4DLNAYUJYVKRASV2A/mVGNPEMtWmQbYWxLH8vlDXEY94FfQNY6HaT
Obviously your visual lisp extensions aren't loading - even after (vl-load-com)
I know only that visual lisp don't support Mac OS, but I don't know what might cause this problem. Perhaps, re-install AutoCAD?
I'm curious if the following code will work without vlisp, are you after something like this? :
; Some vanilla lisp challenge:(defun C:test( ;| credits to: Lee Mac, Tharwat, Roy |; / Svars *error* SS i e enx eT len itm Lst LinesL PlinesL SplinesL ArcsL ;| (written by Grrr) |; )(setq Svars (list (list "cmdecho" (getvar 'cmdecho) 0) (list "clipromptlines" (getvar 'clipromptlines) 2) (list "nomutt" (getvar 'nomutt) 0) (list "lunits" (getvar 'lunits) (getvar 'lunits)); you might change this (list "luprec" (getvar 'luprec) (getvar 'luprec)); you might change this ))(if Svars (mapcar '(lambda (x) (setvar (car x) (caddr x))) Svars)); I would recommend NOT uninstalling/reinstalling AutoCAD until you look at the link I supplied in post #15. @ Grrr:
Just a small remark regarding the calculation of the length of an arc.
The code you use (taken from code the OP has provided) will not give the correct length if the end angle is smaller than the start angle of the arc:
(setq len (* (CdrAssoc 40 enx) (abs (- (CdrAssoc 51 enx) (CdrAssoc 50 enx)))))Try something like this instead:
; Change an angle to fit in the range: 0
Thanks Roy, I've modified the code in my previous post. Grrr - Okay that lisp in #16 worked fine , in fact it's better than the original in that I don't have to select only polylines or only lines at a time.
The real question though is why am I now able to run a lisp? I assume you added code which overcame whichever error I was getting as I still get no value when I run the original.
As a matter of interest I ran another basic lisp routine without issue.
Also interestingly, as of yesterday one of my colleagues PC's has decided to stop running the troublesome lisp too.
ReMark - Thanks for that, I am unable to modify that acaddoc.lsp file. I saved a copy to my lisp directory and added the recommended line of code but I am not sure how to execute the file. I can't seem to run it via the APPLOAD function.
页:
1
[2]