希望大神們能提供參考參考

hoodpinrh

請問各位大神們
有什麼檢視圖面的程序嗎？
希望各位大神們能提供程序參考參考，也讓我們這些小弟們學習學習。

1、一圖多張時，可以由左到右、由上到下。
各別依圖框（含無屬性之類）查看。
【目前小弟還不太了解排序的原理，目前正在努力了解中。
我認為排序對我的行業（雷射鈑金廠）太重要了，我一定要搞懂。】

2、查看的同時，也能查看圖框內的所有物件，能視別不應該有的圖層（主要是0圖層），
如果有不是0圖層的物件，以變換特別的顏色做告知。
【目前本人在論壇由找到參考的程式，但還是有點美中不足。
因為我找不到什麼顏色最特別，想不看都不行的那種感覺。
去除1~7的顏色，還有什麼顏最特別？或是有什麼方式能告知的那種。】

3、查看時也能讓程序找到相對應的標注題寸是否吻合，展開尺寸與成型尺寸的對照相減後，或相加後得出的答案是否正確。
【目前正在使用啊甘計算的程式，只能用選取二個標注來計算。
一直找不到能做相對應的程序參考，只能先使用啊甘計算的程序。】

以上的要求可能要求太高了，不求能但求有就好。
希望各位大神們能提供參考的程式，或是思路都可以。

再次感謝了~~

bssurvey

可以把圖或用動畫傳上來，讓大家幫忙，可能會比較詳細

hoodpinrh

bssurvey發表於2020-8-31 17:04
可以把圖或用動畫傳上來，讓大家幫忙，可能會比較詳細

像這個打印的程序，我參考了很多排序的程序。
我完全不知道怎麼加入排序，請指點指點。只要乖乖的從左到右從上到下就好
(defun c:zc (/ x pstr w obj llpt urpt)
  (vl-load-com)
  (setvar "cmdecho" 0)
  (setq x (vlax-get (vlax-get (vlax-get-acad-object) 'ActiveDocument ) 'ActiveSpace ) )
  (setq ss (ssget "x" '((0 . "insert")
             (2 . "A$C3AB3266C,圖框,圖框預設圖框,A$C360B090D,A$C477E29FB,A$ C0D891935,A$C662E4350,A$C3EE51427,圖框A3"))))
  (setq n 0)
(repeat
    (sslength ss)
     (setq w (ssname ss n))
     (setq obj (vlax-ename->vla-object w))
     (vla-getboundingbox obj 'llpt 'urpt)
     (setq llpt (vlax-safearray->list llpt)
           urpt (vlax-safearray->list urpt) )   
     (vl-cmdf "-plot" "y" "" "SHARP MX-M354N PCL6" "A4" "M" "L" "N" "W" llp urpt
              "f" "C" "Y" "monochrome.ctb " "Y" "W" "n" "N" "" )     
     (setq n (+ n 1))
  )
  (command "ZOOM" "o" ss "")
  (command "QSAVE")
;;; (command " CLOSE" "")
  (setvar "cmdecho" 1)
  (prin1)
)