[Grim13-13]

У отметки, есть X,Y, а Z в текстовом виде и нет самой точки.

[KennyMckormik]

пример please

[Кулик Алексей aka kpblc]

А перед примером - в поиск. Подобных вопросов на форуме была туча

[VVA]

Grim13-13,
За основу взят код отсюда

Код:

[Выделить все]

(defun C:Txt2Z ( / ss e_count Ename edata txt txt_num InsPt newPt Newdata  )
;;; move Z coordinate with text information  
;;; Get from http://www.autolisp.com/forum/showthread.php?p=826
;;; posted http://forum.dwg.ru/showthread.php?t=49487  
;;following prompts user to select objects, filters out objects
;;other than text:
(or (zerop (getvar "PDMODE"))
    (setvar "PDMODE" 35)
    )
(and  
(setq ss (ssget "_:L"  '((0 . "TEXT"))))
;;Now loop through set using a counter
;;to track location in set
(setq e_count 0);;initialize counter
(repeat (sslength ss);;begin loop, repeat for num of items
   (setq Ename (ssname ss e_count));retrieve ent name
   (setq edata (entget Ename));;entity data
   (setq txt (cdr (assoc 1 edata)));;text value, aa "string"
   (setq txt_num (atof txt));;convert to a real num 4 decimals
   (setq InsPt (cdr (assoc 10 edata)));;get insert point
   (setq newpt (list (car InsPt) (cadr InsPt) txt_num));;new pt with new z
   (setq Newdata (subst (cons 10 newpt) (assoc 10 edata) edata));;revise data list
   (entmod Newdata);;modifies entity with new data
   (entmakex (list (cons 0 "POINT") ;***
		   (cons 6 "BYLAYER")
		   (cons 8 "POINTS")
		   (cons 10 newpt) ;***
		   (cons 62 256)
		   (cons 210 (list 0.0 0.0 1.0))))
   (setq e_count (+ 1 e_count));increment
);end repeat
)
(terpri)
(princ e_count)(princ " text move to Z value")
(princ)
)

Еще полезная тема: Перенос из содержания текста в координату z рядом стоящей точки

[Grim13-13]

Очень спасибо!

А к полученому облаку точек => mesh'у, можно приладить горизонтали?
Или в точки их обратить с каким то шагом?

[VVA]

Можно сделать триангуляцию. Горизонтали без проблем "приладит" геоникс
программа триангуляции облака точек

[hwd]

Мало ли, может будет интересно глянуть.