将viewport中的内复制到modle中 - AutoLISP/Visual LISP 编程技术 - AutoCAD论坛 - 明经CAD社区 - 第5页

龙龙仔 发表于 2004-4-22 10:02:00

1. 在select object時輸入all是不是不經過過濾了或是選的更加多了？<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p>

->ALL選項會得到所有LWPOLYLINE,VIEWPORT(當然有過濾)<o:p></o:p>

->沒有附帶VIEWPORT的LWPOLYLINE也在其中(你要改進這一點)<o:p></o:p>

->所有圖紙空間的VIEWPORT也在其中(69碼的判斷把它解決了)<o:p></o:p>

2. DXF69是Viewport ID , (69 . 1)就是圖紙空間

 下到程序列出所有VIEWPORT的ENTGET

(setq SS (ssget "X" '((0 . "VIEWPORT")))<o:p></o:p>

 N 0<o:p></o:p>

)<o:p></o:p>

(repeat (sslength SS)<o:p></o:p>

 (print (entget (ssname SS N)))<o:p></o:p>

 (setq N (1+ N))<o:p></o:p>

)<o:p></o:p>

<o:p> </o:p>

<o:p> </o:p>

3. 重點: ALL選項打破了LWPOLYLINE後續是附帶VIEWPORT的規則(難怪!我從未聽說過,不要再用這不穩定的規則)<o:p></o:p>

 <o:p></o:p>

(setq SS (ssget "X" '((0 . "LWPOLYLINE,VIEWPORT")))<o:p></o:p>

 N 0<o:p></o:p>

)<o:p></o:p>

(repeat (sslength SS)<o:p></o:p>

 (print (entget (ssname SS N)))<o:p></o:p>

 (setq N (1+ N))<o:p></o:p>

)<o:p></o:p>

<o:p> </o:p>

<o:p> </o:p>

<o:p></o:p>

<o:p>PS:結論:你再想辦法吧!不行我再來!</o:p>

龙龙仔 发表于 2004-5-14 13:41:00

;;以圖塊方式從模型空間轉圖紙空間(PLINE VIEWPORT) ;;不含炸開圖塊後保持原樣(指尺寸標註) ;;BY 龍龍仔(LUCAS) (defun C:M_VIEW (/ LPT RPT VP HOLDECHO HOLDOSMODE SS_I SS_P SS_V I SSD_P A N BOX ) (vl-load-com) (defun DO_IT1 (VP FLAG / WDXF XP W10 W12 W40 W69 SS AA) (setq WDXF (entget VP)) (setq XP (/ (cdr (assoc 41 WDXF)) (cdr (assoc 45 WDXF)))) ;;-------45號碼是什麼用的？好像是個比例因數，我研究下來發現可以得到viewport的比例 ;;經多次研究發現41號碼除以45號碼總能得到viewport的比例 (setq W10 (cdr (assoc 10 WDXF))) ;viewport視圖的中點 (setq W12 (cdr (assoc 12 WDXF))) ;wcs下的目標點 (setq W40 (cdr (assoc 40 WDXF))) ;視圖的高度 (setq W41 (cdr (assoc 41 WDXF))) ;視圖的寬度 (setq W69 (cdr (assoc 69 WDXF))) ;app:視口的表示字 (if (> W69 1) (progn (DO_IT W10) (if FLAG (progn (command "_.rectang" LPT RPT) (setq BOX (entlast)) ) ) (command "zoom" LPT RPT) (setq W40 (/ W40 XP)) (setq W41 (/ W41 XP)) (command "_.MSPACE") (setvar "cvport" W69) (command "_.ucs" "v") (DO_IT W12) ;得到相應大小的矩形框。 (setq SS (ssget "c" RPT LPT)) (if SS (progn (setq AA (rtos (* (getvar "CDATE") 1E8))) ;做塊名 (command "_.block" AA W12 SS "") (command "_.oops") ;undo erase (command "_.pspace") (command "_.insert" AA W10 XP "" "") (command "_.xclip" (entlast) "" "N" "S" BOX) ) ) ;end if ) ) (command "_.pspace") ) ;end progn

(defun DO_IT (CEN / VCTRX VCTRY) (setq VCTRX (car CEN)) (setq VCTRY (cadr CEN)) (setq LPT (list (- VCTRX (/ W40 2.0)) (- VCTRY (/ W41 2.0)))) (setq RPT (list (+ VCTRX (/ W40 2.0)) (+ VCTRY (/ W41 2.0)))) ) ;得出矩形兩個角點座標

(setq HOLDECHO (getvar "cmdecho")) (setq HOLDOSMODE (getvar "osmode")) (setvar "cmdecho" 0) (command "_.undo" "be") (setvar "osmode" 0) (command "_.PSPACE") (setq SS_I (ssget '((0 . "LWPOLYLINE,VIEWPORT")))) (if SS_I (progn (setq SS_V (ssget "P" '((0 . "VIEWPORT")))) (command "_.SELECT" SS_I "") (setq SS_P (ssget "P" '((0 . "LWPOLYLINE")))) (command "_.VIEW" "S" "M_VIEW") ) ) (if SS_P (progn (setq N 0 SSD_P (ssadd) ) (repeat (sslength SS_P) (setq A (ssname SS_P N)) (if (and (= (cdr (assoc 0 (entget A))) "LWPOLYLINE") (= (cdr (assoc 0 (entget (setq VP (cdr (assoc 330 (entget A))))) ) ) "VIEWPORT" ) ) (progn (entmake (vl-remove-if '(lambda (X) (= 330 (car X))) (entget A)) ) (setq BOX (entlast)) (DO_IT1 VP NIL) ) (ssadd A SSD_P) ) (setq N (1+ N)) ) (command "_.ERASE" SS_P "R" SSD_P "") ) ) (if SS_V (progn (setq N 0) (repeat (sslength SS_V) (setq VP (ssname SS_V N)) (if (entget VP) (DO_IT1 VP t) ) (setq N (1+ N)) ) (command "_.ERASE" SS_V "") ) ) (command "_.VIEW" "R" "M_VIEW") (command "_.VIEW" "D" "M_VIEW") (setvar "osmode" HOLDOSMODE) (setvar "cmdecho" HOLDECHO) (command "_.undo" "e") (princ) ) (prompt "\nType M_VIEW to run") (princ)

 ;;反向操作,從VIEWPORT中也有DXF340碼記錄了VIEWPORT是由某LWPOLYLINE建成 ;;程序可否再寫一次 ;;By 龍龍仔(LUCAS) (defun C:M_VIEW_LAI (/ LPT RPT HOLDECHO HOLDOSMODE SS_I SS_D SS_V I A BOX WDXF XP W10 W12 W40 W41 W69 SS ENT )

(defun DO_IT (CEN / VCTRX VCTRY) (setq VCTRX (car CEN)) (setq VCTRY (cadr CEN)) (setq LPT (list (- VCTRX (/ W40 2.0)) (- VCTRY (/ W41 2.0))) ) (setq RPT (list (+ VCTRX (/ W40 2.0)) (+ VCTRY (/ W41 2.0))) ) )

(setq HOLDECHO (getvar "cmdecho")) (setq HOLDOSMODE (getvar "osmode")) (setvar "cmdecho" 0) (setvar "osmode" 0) (command "_.undo" "be") (command "_.PSPACE") (setq SS_I (ssget '((0 . "LWPOLYLINE,VIEWPORT")))) (setq SS_V (ssget "P" '((0 . "VIEWPORT") (-4 . ">") (69 . 1)))) (setq I 0 SS_D (ssadd) ) (if SS_V (progn (command "_.VIEW" "S" "M_VIEW") (while ( (setq A (ssname SS_V I) BOX NIL ) (if (setq ENT (assoc 340 (entget A))) (progn (entmake (vl-remove-if '(lambda (X) (= 330 (car X))) (entget (cdr ENT)) ) ) (setq BOX (entlast)) (ssadd (cdr ENT) SS_D) ) ) (setq WDXF (entget A)) (setq XP (/ (cdr (assoc 41 WDXF)) (cdr (assoc 45 WDXF)))) (setq W10 (cdr (assoc 10 WDXF))) (setq W12 (cdr (assoc 12 WDXF))) (setq W40 (cdr (assoc 40 WDXF))) (setq W41 (cdr (assoc 41 WDXF))) (setq W69 (cdr (assoc 69 WDXF))) (DO_IT W10) (if (not BOX) (progn (command "_.rectang" LPT RPT) (setq BOX (entlast)) ) ) (command "zoom" LPT RPT) (setq W40 (/ W40 XP)) (setq W41 (/ W41 XP)) (command "_.MSPACE") (setvar "cvport" W69) (command "_.ucs" "v") (DO_IT W12) (setq SS (ssget "c" RPT LPT)) (if SS (progn (setq AA (rtos (* (getvar "CDATE") 1E8))) (command "_.block" AA W12 SS "") (command "_.oops") (command "_.pspace") (command "_.insert" AA W10 XP "" "") (command "_.xclip" (entlast) "" "N" "S" BOX) ) ) (command "_.pspace") (setq I (+ I 1)) ) (command "_.ERASE" SS_D SS_V "") (command "_.VIEW" "R" "M_VIEW") (command "_.VIEW" "D" "M_VIEW") ) ) (setvar "osmode" HOLDOSMODE) (setvar "cmdecho" HOLDECHO) (command "_.undo" "e") (princ) ) (prompt "\nType M_VIEW to run") (princ)

citykunan 发表于 2004-5-14 14:32:00

谢谢斑主，让我先研究一下。

vken7az2p 发表于 2006-2-23 07:14:00

请问(rtos (* (getvar "CDATE") 1E8)))这段程序中的 1E8 所代表涵义为何呢 烦请各位可以解答一下 谢谢

maomao2004 发表于 2006-2-23 08:46:00

1e8=1*10^8

caoyin 发表于 2006-2-27 10:55:00

Express Tools 菜单下的CHSPACE命令,很管用

自贡黄明儒 发表于 2013-9-3 16:35:07

04年高手就在这里对决了，很了不起

页: 1 2 3 4 [5]

明经CAD社区's Archiver