la tua'daki grazie çekici risposta.
Bir ücret karşılığında tu mi dici ma purtroppo hetengo sempre lo stesso hatası
se mi puoi, un'occhiata e vedere se c'e'in kulche hatasına meydan okumasına cüret eder;
; vp-outline.lsp
;
;; model uzayında bir poliline yaratır,
;; seçilen görüntünün taslağına sahiptir.
;; kliplenen manzaraportları destekler. poliline destekleniyor
; elpse, spline, bölge ve çevre bu noktada desteklenmedi
; eğer vp-outline, mspace'de algılandığında denirse
;; Aktif görüş.
;
; c:vp-outline
;
;
•; copyright (c) 1997-2013 jtb dünya, tüm hakları saklıdır
; web sitesi:
www.jtbworld.com; e-posta:
[email protected];
; 2000-04-10
;; 2003-11-19, diğer ucs/view'de dünya/şimdiden daha fazla çizim için destek ekledi
;
; 2006-04-06 Beauford'a giden manzaralar için ek destek eklendi
;; 2013-06-08 dairesel görüşportları için destek ekledi
;
;; autocad 2000 ve yenier üzerinde çalışmalı
(vl-load-com)
(defun dxf (n ed) (cdr))
(defun ax:list->variantarray (lst)
(vlax-make-variant
(vlax-safearray-fill
(vlax-make-safearray
vlax-vb çift
(Cons 0 (- (düşük lst) 1))
)
lst
)
)
)
(defun c:vp-outline (/ ad s ent pl plist xy n vpbl vpur msbl msur ven vpno tamam m
circ)
(setq ad (vla-get-activedocument (vlax-get-acad-object)))
(eğer) 0)
(progn
(b) 1) 1) 1)
(progn
(If (setq ss (sget ":e:s" ((0 . "viewport")))
(progn (setq ent (ssisim s)
(setq vpno (dxf 69)
(vla-display (vlax-ename->vla-object ent) :vlax-Real)
(vla-put-mspace ad:vlax- true); eşit (command "._mspace")
; Trans daha sonra doğru görüşportaj üzerinde çalışmak bu
(setvar "cvport" vpno)
(vla-put-mspace ad:vlax-false); eşit (command "._pspace")
(setq tamam t)
(setq s nil)
)
)
)
(setq ent (vlax-vla-object->ename (vla-get-activepviewport ad))
Tamam t
)
)
(Eğer tamamsan)
(progn (setq Circle nil)
(setq ven (vlax-ename->vla-object ent))
(If (/= 1 (logand 1 (dxf 90 (entget ent))
(muhtemelen)
(progn; kliplenmedi
(vla-getboundingbox ven 'vpbl 'vpur)
(setq vpbl (trans (vlax-safearray->list vpbl) 3 2)
msbl (trans vpbl 2 1)
msbl (trans msbl 1 0)
vpur (trans (vlax-safearray->list vpur) 3 2)
msur (trans vpur 2 1)
msur (trans msur 1 0)
vpbr (list (car vpur) (cadr vpbl) 0)
msbr (trans vpbr 2 1)
msbr (trans msbr 1 0)
vpul (list (kar vpbl) (cadr vpur) 0)
msul (trans vpul 2 1)
msul (trans msul 1 0)
plist (list (kar msbl)
(cadr msbl)
(car msbr)
(cadr msbr)
(car msur)
(cadr msur)
(kar msul)
(cadr msul)
)
)
)
(progn; klipler
(setq pl (entget (dxf 340))))
(If (dxf 0 pl) "circle")
(setq çemberi t)
(progn (setq plist (vla-get-coordenginler)
(vlax-ename->vla-object (dxf -1 pl))
)
plist (vlax-safearray->list (vlax-variant-value plist))
n 0
pl nil
)
( pl) 2) 2) 2)
(setq xy (trans (list (nth n plist) (nth (1+ n) plist))) 3 2)
xy (trans xy 2 1)
xy (trans xy 1 0)
pl (cons (car xy) pl)
pl (cons (cadr xy) pl)
n (+ n 2)
)
)
(setq plist (reverse pl)
)
)
)
)
(eğer çember
(vla-addcircle
(vla-get-modelspace ad)
(ax:list->variantarray
(trans (trans (dxf 10 pl) 1 0) 2 1) 3 2)
)
(/ (dxf 40 pl) (kaddr (trans '(0 0 1) 2 3)))
)
(vla-put-closed
(vla-addlightweightpoliline
(vla-get-modelspace ad)
(ax:list->variantarray plist)
)
:vlax-gerçek
)
)
)
)
)
)
)
)
(Eğer
(vla-put-mspace ad:vlax-false)
)
(princ)
)
(vl-load-com)
