lisp工具转换关闭的采购订单

fuqua · 发表于 2022-7-6 09:07:28

这个工具只运行了一次就坏了，似乎每个布局只能使用一次？

有人能帮我找出它的毛病吗？

我目前拥有的：


;;; vpcl-create-viewport-from-a-polyline
;;; version 0.2
;;; 
(defun c:vpcl (/ clgr vpla ; polyline viewport-orriginal
             )
 (princ "\n**select-polyline\n")
 (command "_mspace") ;to be sure
 (setq clgr (car (entsel "Select polyline to convert.") ) )
 (princ "\n**chspace\n")
 (command "_chspace" clgr "" )
 (princ "\n**pspace\n")
 (command "_pspace")
 (princ "\n**vports\n")
 (command "-vports" "o" clgr )
 (princ "\n**select-vp\n")
 (setq vpla (car (entsel "Select main viewport to sync with.") ) )
 (princ "\n**vpsync"\n)
 (command "_vpsync" );vpla clgr "\n" )
 (princ "\n**ready\n")
)

mdbdesign · 发表于 2022-7-6 09:11:41

不需要lisp。。。

alanjt · 发表于 2022-7-6 09:15:02

您也可以使用MView命令来完成。
如。

copy

Command: mv
MVIEW
Specify corner of viewport or 
[ON/OFF/Fit/Shadeplot/Lock/Object/Polygonal/Restore/LAyer/2/3/4] <Fit>: o
Select object to clip viewport: Regenerating model.
Command: Specify opposite corner:

BIGAL · 发表于 2022-7-6 09:19:27

布局中也有标题栏有一个大的模型视图近似标题栏，您可以使用chspace将多段线拖动到图纸空间，然后MV ob拾取pline删除模型视图外部不再需要。

抱歉再次阅读Alans，但添加了chspace

fuqua · 发表于 2022-7-6 09:23:00

谢谢你们的提示，我试着做些改变。

敬请期待

fuqua · 发表于 2022-7-6 09:26:25

顺便说一句，我不想做任何剪辑，在视口中使用视口的想法是让大视口中的所有内容都变灰，新创建的视口颜色应该保持不变。

比如突出显示你想关注的某个区域，而不会忽略绘图的其余部分。

fuqua · 发表于 2022-7-6 09:29:27

copy

;;; vpcl-viewport-van-clustergrens
;;; versie 0.2
;;; 
(defun c:vpcl (/ clgr;
             )
 (command "_mspace") ;voor de zekerheid
 (setq clgr (entsel "Select clustergrens om te converteren.") )
 (command "_chspace" (car clgr) "" )
 (command "_pspace")
 (command "-vports" "o" clgr ) ;assume last created object is our viewport
 (princ "")
 ;Here is the place to implement a "VPSYNC"-like routine
 ;followed by vp-plotstyle overrides voor de `master'viewport
)

这是我们制作的工具的更新，唯一的问题是我们不能在lisp中使用vpsync。有什么帮助吗？

Tharwat · 发表于 2022-7-6 09:31:19

这可能会帮你，伙计。

copy


(defun c:vpcl (/ ss ent)
 ;; Tharwat 26. 07. 2011
 (cond ((not
          (eq (vla-get-Activespace
                (vla-get-activedocument (vlax-get-acad-object))
              )
              acPaperSpace
          )
        )
        (princ "\n ** Command not allowed in Model Tab ** ")
       )
       ((not (and (setq ss (ssget "_+.:L:S" '((0 . "LWPOLYLINE"))))
                  (vlax-curve-isclosed (setq ent (ssname ss 0)))
             )
        )
       )
       ((command "_.mview" "_object" ent))
 )
 (princ)
)