ポイントの名前の抽出

[Angelo2449]

皆さんこんにちは。
ポイントを識別するテキスト文字列がある設計では、すべての文字列またはポイントの名前の内容を抽出したいと思います。

これらの文字列は、拡張データと関連しています。これらの文字列のみの内容を抽出したいと思います。

strings(points)は、このコードで生成されました。

(seq オブジェクト "group")
(regappオブジェクト)
(setq 文字列 (sget "_x"(0 . "text,mtext")(1 . "p*")))))))))))

(/= 文字列 nil の場合)
(プログ)
(setq n (sslength 文字列a))
(setq 番号 n)

(setq fc1 ニル)
(setq fc1 (findfile "c:\\\\autocadsupport\\\\\provisors\\\\\geografica.dat"))))

(fcの場合)
(setq fp2 ("c:\\\autocadsupport\\\\provisors\\\geografica.dat" r")) を開きます)
;;;

(setq fp1 (c:\\\autocadsupport\\contatori\nnumeropunti.dat) "w")
(write-line (toa 番号) fp1)
(write-line-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

(setq の輪郭 0)

(repeat n; (setq n (sslength stringa)))))

(setqの輪郭(1+の輪郭))

(fcの場合)
(setq coordsgeogr (read-line fp2))) )
(setq coordsgeogr...---------------)
;;;

(/= coordsgeogr "-----------------)
(setq coordsgeogr (strcat coordsgeogr "(toa cont"))))
;;;

(setq entityta (ssname stringa (setq n (1-n)))))))))
(Sectqテキスト)
(setq txt1 (assoc 1 テキスト)))
(setq ポイント名 (cdr txt1))
(setq pospar1 (vl-string-search))
(setq nomex (サブストポイント2 (- pospar1 1)))))
(setq quota (サブストポイント名) (+ pospar1) 2) 6) 2) 6)

(setq txt2 (cdr txt1)))
(Sectq 肺 (- (ストレン txt2) 35)
(setq xyz (assoc 10 テキスト)

(setq 行 (文字列名 " - " (toa n)))))
(書き込み行 fp1)

(setq gaussboaga (strcat (rtos (cadr xyz))) "," (rtos (caddr xyz)))))))
(setq ecef (substr txt2 (+ 10 pospar1) 35)))

(vl-string-search " ecef)
(setq ecef (vl-string-subst "" "ecef)))
;;;

(setq型「ジェネリック」点)
(setq cstz "含まない")
(setq cpt "undefined")

(setq 古いlist (entget entita)))
(setq thedata (list -3 (cons 1000 nomex) (cons 1000 point type) (cons 1000 クォータ) (cons 1000 ecef)))
(cons 1000 gaussboaga) (cons 1000 cstz) (cons 1000 cpt) (cons 1000 coordsgeogr))
(cons 1000...-----)

(setqニューリスト)
(新規登録)
(コマンド "_change" entita "" "" "" """ "" "" )

;;;
;;;
;;;

そのため、拡張データが関連付けられている図面に存在するポイントの名前のリストを作成したいと思います。
お問い合わせ