- (defun vxs (e / i v lst)
- (setq i 0)
- (while
- (setq v (vlax-curve-getpointatparam e (setq i (1+ i))))
- (setq lst (cons v lst))
- )
- (reverse lst))
- ;;;;;;;;;;;;;;;
- (defun 38zu ( e / e)
- (cdr(assoc 38(entget e)))
- )
- ;;;;;
- (defun 10zu ( e / e)
- (cdr(assoc 10(entget e)))
- )
- ;;;;;
- (defun 1zu ( e / e)
- (cdr(assoc 1(entget e)))
- )
- ;;;;;;
- (defun c:tt1188 ( / lst ent pts pt demj zmj ffn ff) ;标记三角网表面积
- (setq lst (ssget "x" '( (0 . "text") (8 . "fgbj1")) ) )
- (setq i 0)
- ;(setq zmj 0.000)
- (setq ffn (getfiled "选取/建立数据导出文件" "" "txt" 1))
- (setq ff (open ffn "w"))
-
- (while (< i (sslength lst))
- (setq ent (ssname lst i))
-
- (princ (strcat (1zu ent)","(rtos (cadr(10zu ent)) 2 3) "," (rtos (car(10zu ent)) 2 3)"," (rtos (last(10zu ent)) 2 3) "\n"
- ) ff)
-
-
-
- ;(setq zmj(+ zmj demj))
- (setq i (+ i 1))
-
-
- )
- (close ff)
- (princ)
- )
|