[求助]求助caoyin 版主，如何获取QLEADER末端的那个端点的坐标？
求助caoyin 版主，如何获取QLEADER末端的那个端点的坐标？ 本帖最后由 作者 于 2008-12-22 9:05:42 编辑 <br /><br /> <p>(setq VAR (vla-get-Coordinates (vlax-ename->vla-object (car (entsel)))))</p><p>(setq VAR (vlax-safearray->list (vlax-variant-value VAR)))</p><p>(repeat (- (length VAR) 3) (setq VAR (cdr VAR)))</p> <p>谢谢版主，版主太强了，但得出的是倒数第二个节点以及端点的坐标点，如何可以提取只是端点的坐标点吗？</p><p>例如：</p><p>得出结果是：(4.22819 0.0 36.6361 93.3141 0.0 100.0 100.0 0.0)</p><p>我能怎样转换成："100,100"吗？</p> 干嘛要转换成字符串？？字符串无法兼顾点的精度！。 <p>(setq VAR (vla-get-Coordinates (vlax-ename->vla-object (car (entsel)))))</p><p>(setq VAR (vlax-safearray->list (vlax-variant-value VAR)))</p><p>(repeat (- (length VAR) 3) (setq VAR (cdr VAR)))</p><p>(substr (apply 'strcat (mapcar '(lambda (x)(strcat "," (rtos x 2))) VAR)) 2)</p> 非常感谢<font face="Verdana" color="#da2549"><strong>caoyin</strong><font color="#000000">版主!!!</font></font> <p>还有就是我想问一下：</p><p>(if (= (cdr (assoc 2 (setq edat (entget (setq e (ssname ssi 0)))))) "材料")<br/> (progn<br/> (setq INSc (cdr (assoc 41 edat)))<br/>;当INSc为负数时说明它是镜像了的，如何能够把它镜像回原始状态呢？<br/> )<br/>)</p> <p>还有就是：(4.22819 0.0 36.6361 93.3141 0.0 100.0 100.0 0.0)</p><p>我能怎样转换成(100.0 100.0 0.0)？</p> userzhl发表于2008-12-22 9:40:00static/image/common/back.gif还有就是：(4.22819 0.0 36.6361 93.3141 0.0 100.0 100.0 0.0)我能怎样转换成(100.0 100.0 0.0)？<p></p>仔细看5楼的帖 本帖最后由 作者 于 2008-12-22 10:23:36 编辑
还有就是我想问一下：
(if (= (cdr (assoc 2 (setq edat (entget (setq e (ssname ssi 0)))))) "材料")
(progn
(setq INSc (cdr (assoc 41 edat)))
;当INSc为负数时说明它是镜像了的，如何能够把它镜像回原始状态呢？
)
)(mapcar 'abs INSc)，然后用entmod更新图元
如 (mapcar 'abs '(-1 -2 -3))->返回(1 2 3)
页:
[1]
2