自贡黄明儒 发表于 2013-10-9 11:02:37

[功能] 返回UCS坐标


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

hnfsf 发表于 2014-9-28 04:28:19

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

逍遥无声 发表于 2022-7-22 02:01:48

:handshake
页: [1]
查看完整版本: [功能] 返回UCS坐标