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

龙龙仔 发表于 2004-4-9 17:07:00

1. 问题2好像我没有碰到 圖中有很多VIEWPORTS有些VIEWPORT像"點"一樣大時，你會發現程序失敗

2. 我想等你過些時日再想解決辦法,目前你是解決不了!

citykunan 发表于 2004-4-10 06:26:00

半夜突然想到如何比较好的解决问题2，忍不住早起开始编程了。

我想了想，好像只能用zoom命令将其放大才行。

龙龙仔 发表于 2004-4-10 07:52:00

;;沒這兩句也"好像"能執行,你真有測試嗎? ;;查一下幫助你會更了解它的作用!!如viewport中ucs並不平行xy平面

好像只能用zoom命令将其放大才行。<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p>

->不是每個都zoom,小的才zoom(很麻煩的,試看看)<o:p></o:p>

citykunan 发表于 2004-4-12 08:51:00

版主，我有遇到一个问题，我是想把这个程序扩充到可以用在pline的viewport上。

可是我遇到一奇怪的问题。以下是程序。我用(setq a (car (entsel)))便可以实现，提

取pline上的viewport各节点，并画了一条pline，而用(setq ss_i (ssget '((0 . "VIEWPORT"))))....却不行不知为何？

;这个可以

(defun c:test () (setq a (car (entsel))) ;(setq ss_i (ssget '((0 . "VIEWPORT")))) ;(setq i 0) ; (while ( ; (setq a (ssname ss_i i)) (setq nlist_list (MASSOC 10 (entget a))) (setq len_list (length nlist_list )) (command "_.pline" (setq first_point (car nlist_list))) (while (setq nlist_list (cdr nlist_list)) (command (car nlist_list)) );enf while (command first_point "") ; (setq i (+ i 1)) ;);end while )

(defun massoc (key alist / x nlist) (foreach x alist (if (eq key (car x)) (setq nlist (cons (cdr x) nlist)) ) ) (reverse nlist) )

;这个不行

(defun c:test () ;(setq a (car (entsel))) (setq ss_i (ssget '((0 . "VIEWPORT")))) (setq i 0) (while ( (setq a (ssname ss_i i)) (setq nlist_list (MASSOC 10 (entget a))) (setq len_list (length nlist_list )) (command "_.pline" (setq first_point (car nlist_list))) (while (setq nlist_list (cdr nlist_list)) (command (car nlist_list)) );enf while (command first_point "") (setq i (+ i 1)) );end while )

(defun massoc (key alist / x nlist) (foreach x alist (if (eq key (car x)) (setq nlist (cons (cdr x) nlist)) ) ) (reverse nlist) )

龙龙仔 发表于 2004-4-12 12:33:00

Pline只是附帶viewport,查看Pline的dxf 330

citykunan 发表于 2004-4-12 13:51:00

版主能不能说的在详细一点，330码怎么用啊？谢谢。

我将330码提出，再用entget取值，还是得不到viewport的节点坐标啊。

龙龙仔 发表于 2004-4-12 14:33:00

那330碼是告訴你這PLINE附帶VIEWPORT, 那VIEWPORT的節點就是PLINE的節點,你應該過濾那些PLINE附帶VIEWPORT。(轉一下腦筋好嗎?)<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p>

citykunan 发表于 2004-4-12 15:50:00

在版主的提示下，已经有点眉目，但总是差一点，我已经很努力了，基础太差了。

版主有空时帮我看看我的程序，谢谢了。

(defun C:M_VIEW (/ HOLDECHO HOLDOSMODE A AA W10 W12 W40 W41 W69 VCTRX VCTRY LPT RPT INS XP SS ss_i i RT LB len_list )

(defun DO_IT (CEN) (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") (leo_sc) ;(setq A (car (entsel "\nSelect Viewport: "))) (setq ss_i (ssget '((0 . "LWPOLYLINE,VIEWPORT")))) (setq i 0) (while ( (setq a (ssname ss_i i)) (setq nlist_list (MASSOC 10 (entget a))) (setq len_list (length nlist_list )) (if (= (cdr (assoc 0 (entget a))) "LWPOLYLINE") (progn (command "_.pline" (setq first_point (car nlist_list))) (while (setq nlist_list (cdr nlist_list)) (command (car nlist_list)) );enf while (command first_point "") (setq BOX (entlast)) );end progn (progn (setq WDXF (entget A)) (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:视口的表示数字 (DO_IT W10) (if (= (cdr (assoc 0 (entget a))) "VIEWPORT") (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) ) ) (command "_.pspace") (command "_.ERASE" A "") );end progn );end if (command "zoom" rb lt) (setq i (+ i 1)) );end whlie (setvar "osmode" HOLDOSMODE) (setvar "cmdecho" HOLDECHO) (command "_.undo" "e") (princ) )

;可以做参考，取得绘图窗口坐标 (defun leo_sc (/ ctr size SCREEN SCALE XSIZE) (command "_.UCS" "V") (setq CTR (getvar "VIEWCTR")) (setq SIZE (getvar "VIEWSIZE")) (setq SCREEN (getvar "SCREENSIZE")) (setq SCALE (/ (car SCREEN) (cadr SCREEN))) (setq XSIZE (* SCALE SIZE)) (setq RT (list (+ (car CTR) (/ XSIZE 2)) (+ (cadr CTR) (/ SIZE 2)))) (setq LB (list (- (car CTR) (/ XSIZE 2)) (- (cadr CTR) (/ SIZE 2)))) ;(command "_.line" RT LB "") ;(command "_.UCS" "P") (princ) )

 ;得到同一dxf码的多个值,如 (MASSOC 10 (entget (car (entsel))))，可以得到pline的多个节点 (defun massoc (key alist / x nlist) (foreach x alist (if (eq key (car x)) (setq nlist (cons (cdr x) nlist)) ) ) (reverse nlist) )

龙龙仔 发表于 2004-4-12 16:05:00

你完全看不懂我說的! 8-(<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p>

PLINE不見得都附帶VIEWPORT,<o:p></o:p>

能附帶VIEWPORT物件相當多<o:p></o:p>

"circle,ellipse,region,lwpolyline,polyline,spline"這些(closed)都可以<o:p></o:p>

(多轉n下腦筋好嗎?) 8^)<o:p></o:p>

citykunan 发表于 2004-4-12 16:20:00

版主不要生气，让我这个愚人再试试。

页: 1 2 [3] 4 5

明经CAD社区's Archiver