SummerDawn

在复杂的平面图上校对编号中，对属实麻烦，提取编号，将一一校对的难度降低不少。

本示例为按半圆排布。也可以分两步，先提取编号列表，然后一一查找对应位置：

思路非常简单，创建选择集后，分两次循环，第一次从中读取文字内容，以及各插入点，生成文字列表、实体名列表、插入点列表。

用各插入点计算出中心点，读取布置半圆的半径

第二次循环文字列表，生成特征文字。然后轮次连接特征文字与选择集中的文字。

	(setq i 0 n (length enlist))
	;(setq bpoint (getpoint "\n输入圆心点:"))
	(setq bpoint (wtou(mid_vertex ptlist)))
	(setq r  (getdist  bpoint "\n输入半径:"))
	(setq theta (* 1.0 (/ pi (- n 1)))) ;取半圆
	(repeat  n
	;(setq inspoint  (utow (list (car bpoint) (+ (cadr bpoint) (* i 5000)) 0)))
	;采用90°半圆环绕
	(setq inspoint (utow (polar bpoint (* i theta) r)))
    (setq en (nth i enlist))
	(setq en-txt (get-dxf 1 en ) )
	(setq i (1+ i))
	
	(setq typ (get-dxf 0 en) layname (get-dxf 8 en))
	(if (null(setq mycolor (get-dxf 62 en)))(setq mycolor 256))
	(setq fil-temp (list  (cons 0 typ)(cons 8 layname)(cons 62 mycolor ) (cons 1 (get-dxf 1 en))))
	
	;(defun make_text2( pt-text10 str layername mycolor / temp-list ucszdir)
	(make_text2 inspoint en-txt layname mycolor)

Last Modified·2021年12月17日 13:41

提取编号插件

评论列表