[功能] 返回UCS坐标

自贡黄明儒

2. 
   
3. ;;[功能] 返回UCS坐标
   
4. ;;示例(MJ:HH:Dxf 10 (entget(car(entsel))))
   
5. (DeFun MJ:HH:Dxf (code entlist / GCODE)
   
6.   (if (and (setq Gcode (cdr (assoc code entlist)))
   
7.            (member code (list 10 11 210))
   
8.       )
   
9.     (trans Gcode (cdr (assoc -1 entlist)) 1)
   
10.     Gcode
    
11.   )
    
12. )

<br /> ;;[功能] 返回UCS坐标<br /> ;;示例(MJ:HH:Dxf 10 (entget(car(entsel))))<br /> (DeFun MJ:HH:Dxf (code entlist / GCODE)<br />   (if (and (setq Gcode (cdr (assoc code entlist)))<br />            (member code (list 10 11 210))<br />       )<br />     (trans Gcode (cdr (assoc -1 entlist)) 1)<br />     Gcode<br />   )<br /> )

hnfsf

很不错，简单好使，
块内点坐标怎么得到？

逍遥无声