wei209 发表于 2006-7-19 21:12:00

[求助]有点问题的提取坐标的程序,帮改改!

本帖最后由 作者 于 2006-7-19 21:38:48 编辑 <br /><br /> <P>单独选点</P>
<P>(defun c:test() <BR>(setq ent (ssget "x"&nbsp; "\N 选一个点："))<BR>(SETQ zzz (cadddr(assoc 10 (ENTGET (CAR ENT))))) <BR>(SETQ xxx (car(cdr(assoc 10 (ENTGET (CAR ENT))))))<BR>(SETQ yyy (cadr(cdr(assoc 10 (ENTGET (CAR ENT))))))<BR>&nbsp;(setq zzz1 (rtos zzz))<BR>&nbsp;(setq point (list xxx yyy))<BR>(COMMAND "style" "宋体" "宋体" "0" "1" "0" "" "")<BR>(command "text" point "1" ""&nbsp; zzz1)&nbsp;<BR>)</P>
<P>想批量处理框选内容,不会写,请大家给改改!!</P>
<P>(defun c:test() <BR>(setq ent (ssget "c" '((0 . "point")))) &nbsp;; 框选</P>
<P>(if ent (progn<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq long (sslength ent)) ;计算选择集个数<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq num 0)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (repeat long<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq ty (ssname ent num)) ;ssname 选择集索引值<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ;根据索引值取出选择集中的对象名称<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq data (entget ty))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq typ (cdr (assoc 0 data)))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (if (= "point" TYP)<BR>&nbsp;(PROGN<BR>(SETQ zzz (cadddr(assoc 10 data))) <BR>(SETQ xxx (car(cdr(assoc 10 data))))<BR>(SETQ yyy (cadr(cdr(assoc 10 data))))<BR>(setq zzz1 (rtos zzz))<BR>(setq point (list xxx yyy))<BR>(command "text" point "1" ""&nbsp; zzz1)&nbsp;<BR>)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; );if<BR>(setq num (1+ num))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; );repeat<BR>));if<BR>)</P>

wei209 发表于 2006-7-19 22:56:00

没人回答我!!

wei209 发表于 2006-7-20 20:00:00

<P>呵呵，改好了，谢谢<A name=24008><FONT color=#000066><B>nameld001</B></FONT></A></P>

写不完的日记 发表于 2016-9-10 11:20:52

你批量处理框选内容获取坐标的l源码可以给我一份不？
页: [1]
查看完整版本: [求助]有点问题的提取坐标的程序,帮改改!