乐筑天下

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

[编程交流] 脚本错误

[复制链接]

4

主题

2143

帖子

2197

银币

限制会员

铜币
-24
发表于 2022-7-5 17:47:25 | 显示全部楼层
尝试一个新的Windows配置文件和/或尝试让同事登录到您的计算机,看看它是否有效。
回复

使用道具 举报

40

主题

102

帖子

62

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
200
发表于 2022-7-5 17:48:59 | 显示全部楼层
Grrr-我得到提示“选择一条线以显示其长度”,当我选择这条线时,这是我得到的。。。
 
181304dk4vtpekrpi6mtky.jpg
回复

使用道具 举报

40

主题

102

帖子

62

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
200
发表于 2022-7-5 17:52:26 | 显示全部楼层
SLW210-Ok今天早上尝试了一下,我创建了一个新的Windows帐户,打开了Autocad,运行了lisp,得到了相同的结果,没有值显示通常在哪里指示长度。
 
不确定这是否重要,但MEASURE命令工作正常。
回复

使用道具 举报

4

主题

2143

帖子

2197

银币

限制会员

铜币
-24
发表于 2022-7-5 17:55:02 | 显示全部楼层
有趣的是,我在AutoCAD 2011上运行了Grrr的第一个代码,得到了这个。。。。
 
  1. Command: LMEASURE
  2. Enter an option [Lines/Arcs/Polylines/Splines/Kill Dwayne?] : a
  3. ; error: An error has occurred inside the *error* functionno function
  4. definition: COMMAND-S
回复

使用道具 举报

10

主题

8258

帖子

8335

银币

初来乍到

Rank: 1

铜币
31
发表于 2022-7-5 17:59:27 | 显示全部楼层
刚刚遇到这个可能会引起一些兴趣。。。
 
http://architects-desktop.blogspot.com/2014/11/aca-2015-cannot-invoke-command-from.html
 
 
[img]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
回复

使用道具 举报

66

主题

1552

帖子

1514

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
325
发表于 2022-7-5 18:01:50 | 显示全部楼层
 
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? :

[code]; 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));
回复

使用道具 举报

10

主题

8258

帖子

8335

银币

初来乍到

Rank: 1

铜币
31
发表于 2022-7-5 18:05:19 | 显示全部楼层
I would recommend NOT uninstalling/reinstalling AutoCAD until you look at the link I supplied in post #15.
回复

使用道具 举报

18

主题

1529

帖子

973

银币

中流砥柱

Rank: 25

铜币
649
发表于 2022-7-5 18:08:07 | 显示全部楼层
@ 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:
  1. (setq len (* (CdrAssoc 40 enx) (abs (- (CdrAssoc 51 enx) (CdrAssoc 50 enx)))))
Try something like this instead:

[code]; Change an angle to fit in the range: 0
回复

使用道具 举报

66

主题

1552

帖子

1514

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
325
发表于 2022-7-5 18:10:21 | 显示全部楼层
 
Thanks Roy, I've modified the code in my previous post.
回复

使用道具 举报

40

主题

102

帖子

62

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
200
发表于 2022-7-5 18:14:51 | 显示全部楼层
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.
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-8-23 10:07 , Processed in 0.721554 second(s), 72 queries .

© 2020-2025 乐筑天下

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