@plot:frame-recognition-by-line

说明:打印

用法:

 (@plot:frame-recognition-by-line)

参数:

返回值:

示例:

(defun @plot:frame-recognition-by-line
    (/ frames segments frame-length?
       seg-v seg-h ent-first frame got-tk
       total frame-pts
       )
  "识别由4个线段组成的矩形图框"
  ;; 识别多段线  (@:log "INFO" "选择并排除杂线...")
  (std:timer-start)
  (setq total (length @plot:*frames*))
  (setq segments (pickset:to-list
		  (ssget "x" (list '(0 . "LINE")
				   (cons 8 (@:get-config '@plot:layers))
				   '(-4 . "<NOT")
				   '(8 . "temp-frames")
				   '(-4 . "NOT>")))))
  (@:log "INFO" (strcat "发现 " (itoa(length segments)) "条线。"))
 
  (setq segments (vl-remove-if-not
		  '(lambda (x)(@plot:frame-length? (line:length x)))
		  segments))
  (@:log "INFO" (strcat (itoa (length segments)) "条线符合图框尺寸。"))
  (@:log "INFO" "正在分类边框线...\n")
  (setq seg-h (vl-remove-if-not
	       '(lambda (x / ang)
		  (setq ang (apply 'angle (entity:getdxf x '(10 11))))
		  (while (>= ang pi)
		    (setq ang (- ang pi)))
		  (or 
		   (equal ang  0 0.001)
		   (equal ang  pi 0.001)))
	       segments))
  
  (@:log "INFO" (strcat "seg-h: "(itoa (length seg-h)) ))
  (@:log "INFO" "正在进行边框线排序...")
  (setq seg-h
	(vl-sort seg-h
		 '(lambda (ent1 ent2) (< (cadr (entity:getdxf ent1 10))
				       (cadr (entity:getdxf ent2 10))))))
  ;; (setq seg-v  ;; 	(vl-sort seg-v  ;; 		 '(lambda (ent1 ent2) (< (car (entity:getdxf ent1 10))  ;; 				       (car (entity:getdxf ent2 10))))))  (@:log "INFO" "从直线图元中识别矩形框。\n")
  (setq bm% 0)(setq got-tk nil)
  (while  (< bm% (- (length seg-h) 1))
    (setq tp% (1+ bm%))
    (while  (< tp% (length seg-h))
      ;; 从 seg-v 中取相应图元并从表中移除      ;; 检测 bm% tp% 两个线是否符合图框要求      (if (@plot:framep
	   (append
	    (entity:getdxf (nth bm% seg-h) '(10 11))
	    (entity:getdxf (nth tp% seg-h) '(10 11))))
	  (progn
	    (setq got-tk T)
	    (setq frame (list (nth bm% seg-h)
			      (nth tp% seg-h)
			      ))
	    (setq frame-pts 
		  (vl-sort 
		   (append (entity:getdxf (car frame) '(10 11))
				 (entity:getdxf (cadr frame) '(10 11)))
		   '(lambda (pt1 pt2)
		      (or (< (car pt1)(car pt2))
			  (and (equal (car pt1)(car pt2) 0.001)
			       (< (cadr pt1)(cadr pt2)))))))
	    ;; 验证有水平线。	    (setq seg-v1 
		  (ssget "F" (entity:getdxf (car frame) '(10 11))
			 ;;frame-pts			 (list '(0 . "LINE")
			       (cons 8 (@:get-config '@plot:layers))
			       '(-4 . "<NOT")
			       '(8 . "temp-frames")
			       '(-4 . "NOT>"))))
	    (if (= 'pickset (type seg-v1))
		(progn
		  (setq  seg-v1
			 (vl-remove-if-not
			  '(lambda (x / ang)
			     (setq ang (apply 'angle (entity:getdxf x '(10 11))))
			     (while (>= ang pi)
			       (setq ang (- ang pi)))
			     (equal ang (* 0.5 pi) 0.001))
			  (pickset:to-list seg-v1)))
		  (if (and seg-v1 (>= (length seg-v1) 2)
			   )
		      (setq @plot:*frames*
			    (append @plot:*frames* (list (cons frame-pts  (entity:getdxf (car seg-v1) 410)) )))
		  
		    ))))
	)
      (setq tp% (1+ tp%)))
    (setq bm% (1+ bm%))
    )
  (princ "\n")
  (@:prompt (strcat "识别了 "
		    (itoa (-(length @plot:*frames*)
			    total))
		    " 个直线图框。"))
  (std:timer-end)
  (princ)
  )

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

@plot:frame-recognition-by-line

上传记录