用于设置viewpo的Lisp/DCL例程

Grigs · 发表于 2022-7-6 10:02:38

我想知道是否有人能帮我。我要找的是一个例程，可以让你选择一个纸空间视口，弹出一个具有不同比例选择的对话框，然后将该视口更改为所选比例。

我有一个lisp/dcl，它已经为文本大小/尺寸比例做了这项工作。我想知道是否有人可以帮我调整它以改变视口比例？
dsl。dcl
dsl。lsp

BIGAL · 发表于 2022-7-6 10:25:19

尝试从dcl拾取比例，然后z e拾取dwg的中心点，然后z C zzz，其中zzz是所选比例的比例因子，否则再次使用缩放ZZXP zzz是比例因子10XP=1:100

copy


(setq sc (getstring "\nScale for this window 1:  "))
(setq sc3 (strcat "1/" sc "xp"))
(setq zc (getpoint "\nPoint to centre of view in Viewport:"))
(command "_.zoom" "_center" zc sc3)

Grigs · 发表于 2022-7-6 10:27:16

我在论坛上找到了这个例程，想知道它是否可以以某种方式集成到DSL lisp/DCL例程中？

（定义c：测试（/e s）
（if（setq e（car（entsel“\n选择要更改的视口/视图比例：”））
（if（eq“AcDbViewport”（vla get objectname（setq e（vlax ename->vla object e）））
（if（setq s（getreal）（strcat“\n指定新比例（当前：1”）
（实时操作系统（/1。（vla get customscale e））2）
"'): "
)
)
)
（vl catch all apply（函数vla put customscale）（列表e（/1.s）））
)
（普林斯“\n无效对象！”）
)
)
（普林斯）
)

JohnM · 发表于 2022-7-6 10:50:38

只是好奇。
为什么不使用AutoCAD特性框？为什么在Lisp程序的情况下需要它？

Grigs · 发表于 2022-7-6 10:58:32

嗯，我办公室里有些人的灯泡不是最亮的

我想用最简单的方法整理床单。“属性”框不适用于civil Scale（即1“=10”）。我认为这是一种简化模型窗口设置的方法。

Guest kruuger · 发表于 2022-7-6 11:06:21

也许是这个。这很简单，但很有效：

copy

(defun C:S1  () (DRAWVP  1))
(defun C:S2  () (DRAWVP  2))
(defun C:S4  () (DRAWVP  4))
(defun C:S8  () (DRAWVP  )
(defun C:S12 () (DRAWVP 12))
(defun C:S16 () (DRAWVP 16))
(defun C:S24 () (DRAWVP 24))
(defun C:S32 () (DRAWVP 32))
(defun C:S48 () (DRAWVP 48))
(defun C:S96 () (DRAWVP 96))
---------------------------------------------------------------------------------------
(defun DRAWVP (Scale / OLDCMD CVP SS)
 (setq OLDCMD (getvar "cmdecho"))
 (setvar "cmdecho" 0)
 (if (/= (getvar "cvport") 1)
   (progn
     (command "_zoom" "_s" (strcat "1/" (itoa Scale) "xp"))
     (setq CVP (getvar "cvport"))
     (setq SS
       (ssget "_X"
         (list
           (cons 0 "viewport")
           (Cons 69 CVP)
         )
       )
     )
     (command "_vports" "_L" "ON" SS "")
     (command "_pspace")
   )
 )
 (setvar "cmdecho" OLDCMD)
 (princ)
)
(princ)

[编程交流] 用于设置viewpo的Lisp/DCL例程

发表回复

精选推荐