userzhl 发表于 2008-12-25 08:21:00

[求助]哪位高人，能不能帮我看看这样的功能？

本帖最后由 作者 于 2008-12-25 9:52:08 编辑 <br /><br /> <p>如何能利用：</p><p>(setq VAR (vla-get-Coordinates (vlax-ename-&gt;vla-object (car (entsel)))))</p><p>(setq VAR (vlax-safearray-&gt;list (vlax-variant-value VAR)))</p><p>(repeat (- (length VAR) 3) (setq VAR (cdr VAR)))</p><p>批量处理图示中左边的变成右边的：</p><p></p><p>谢谢！</p>

userzhl 发表于 2008-12-25 08:56:00

本帖最后由 作者 于 2008-12-25 9:03:18 编辑

附上文件

userzhl 发表于 2008-12-25 09:48:00

<p>命令: (TYPE (* DIST 2.9)) REAL</p><p>命令: (TYPE (distance pt2 pt3)) REAL</p><p>命令: (distance pt2 pt3) 12.2589</p><p>命令: (* DIST 2.9) 10.15</p><p>命令: (&lt; = (distance pt2 pt3) (* DIST 2.9)) ; 错误: 用于比较的参数类型不正确: #&lt;SUBR @0891c4e8 <br/>=&gt; 12.2589</p><p>为何会这样？</p>

liu_kunlun 发表于 2008-12-25 10:10:00

(&lt;= (distance pt2 pt3) (* DIST 2.9));;&lt;=之间多了个空格

userzhl 发表于 2008-12-25 11:34:00

第一个问题谁能帮解决一下？
页: [1]
查看完整版本: [求助]哪位高人，能不能帮我看看这样的功能？