希望大神們能提供參考參考
請問各位大神們有什麼檢視圖面的程序嗎？
希望各位大神們能提供程序參考參考，也讓我們這些小弟們學習學習。
1、一圖多張時，可以由左到右、由上到下。
各別依圖框（含無屬性之類）查看。
【目前小弟還不太了解排序的原理，目前正在努力了解中。
我認為排序對我的行業（雷射鈑金廠）太重要了，我一定要搞懂。】
2、查看的同時，也能查看圖框內的所有物件，能視別不應該有的圖層（主要是0圖層），
如果有不是0圖層的物件，以變換特別的顏色做告知。
【目前本人在論壇由找到參考的程式，但還是有點美中不足。
因為我找不到什麼顏色最特別，想不看都不行的那種感覺。
去除1~7的顏色，還有什麼顏最特別？或是有什麼方式能告知的那種。】
3、查看時也能讓程序找到相對應的標注題寸是否吻合，展開尺寸與成型尺寸的對照相減後，或相加後得出的答案是否正確。
【目前正在使用啊甘計算的程式，只能用選取二個標注來計算。
一直找不到能做相對應的程序參考，只能先使用啊甘計算的程序。】
以上的要求可能要求太高了，不求能但求有就好。
希望各位大神們能提供參考的程式，或是思路都可以。
再次感謝了~~ 可以把圖或用動畫傳上來，讓大家幫忙，可能會比較詳細 本帖最后由 hoodpinrh 于 2020-9-4 15:58 编辑
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)
)
页:
[1]