您好，欢迎来到CADtutor
有很多例子
这是快速和肮脏
- (defun c:TXZ (/ ss i l[color="red"] vo p[/color])
- [color="red"](princ "\nSelect TEXT.. ")[/color]
- (if (setq ss (ssget ":L" '((0 . "TEXT"))))
- (repeat (setq i (sslength ss))
- (setq i (1- i) l
- (mapcar ''((x) (vlax-get (setq vo (vlax-ename->vla-object (ssname ss i))) x))
- '(TextString InsertionPoint)
- ))
- (if (numberp (read (car l)))
- [color="red"](progn[/color]
- (vla-put-InsertionPoint vo (vlax-3d-point [color="red"](setq p[/color] (list (caadr l) (cadadr l) (atof (car l))))))
- [color="red"](entmakex (list '(0 . "POINT")(cons 10 p)))[/color]
- [color="red"])[/color]
- )
- )
- )
- (princ)
- )
| 
置顶卡
