社区 › Auto Lisp › 获取转换网格sc

bzz 发表于 2022-7-6 06:30:32

获取转换网格sc

您好，我正在尝试使用autolisp或VBA检索用户网格比例因子值。有人能帮忙吗？
 
谢谢
bzz。

Tharwat 发表于 2022-7-6 06:37:05

这
 

(getvar 'gridunit)

marko_ribar 发表于 2022-7-6 06:45:55

我认为是的，同样：
 

(defun c:grids ( / g )
(setq g (getvar 'gridunit))
(setq g
   (cond
   ((getpoint (strcat "\nSpecify new gridunit variable <" (rtos (car g)) "," (rtos (cadr g)) "> : ")))
   (g)
   )
)
(if (caddr g) (setq g (list (car g) (cadr g))))
(setvar 'gridunit g)
(princ)
)

bzz 发表于 2022-7-6 06:49:51

谢谢marko_ribar和Tharwat
但gridunit sys变量指定当前视口的网格间距。我试图获得一个用户定义的网格比例，该比例是从“变换”选项卡的“图形设置”窗口中设置的。

Tharwat 发表于 2022-7-6 06:52:28

如果要手动设置栅格比例，将如何设置？
 
我在Autocad 2014的“图形设置”窗口中找不到“转换”选项卡

bzz 发表于 2022-7-6 07:03:10

在命令行上，我键入“editdrawingsettings”，然后单击Transformation选项卡并设置用户定义的网格比例因子值

Tharwat 发表于 2022-7-6 07:08:44

该选项可能仅在Civil cad中可用，因为它显示在您的配置文件中，您可以上载该对话框的快照吗？

bzz 发表于 2022-7-6 07:12:05

这仅在civil3D中可用

marko_ribar 发表于 2022-7-6 07:15:43

我会尝试使用命令sysvdlg并在那里键入*grid*，如果网格比例因子有sysvar，那么它应该很容易使用（getvar“”？？“”）哪里那是sysvar的名字吗。。。

Tharwat 发表于 2022-7-6 07:23:36

 
不幸的是，我既没有Civil3D也没有Civil3D，但在这个论坛上，我们有很多使用该Cad版本的好人，他们都是非常有用的人，所以等一下，你的问题应该会很快得到回答。

查看完整版本: 获取转换网格sc