(defun userDefinedColumnArray () (setq selSet (entsel "\n请选择要阵列的对象:")) (if selSet (progn (setq cols (getint "\n请输入列数:")) (if cols (progn (setq colSpacing (getreal "\n请输入列距:")) (if colSpacing (progn (command "_.undo" "_mark") ; 注意:这里使用 _ARRAY 命令并尝试设置矩形阵列 (command "_ARRAY" "" "_R" "_ON" "_COL" cols "_S" colSpacing "") ; 注意:_ON 表示对象之间的间距是通过列距和行距指定的,但这里我们只指定了列距 ; 默认情况下,行数可能由用户通过交互方式指定,或者您可以在这里额外添加一个参数来指定行数 (command "_.undo" "_end") (princ "\n根据用户输入和选择的对象创建的阵列已完成。\n") ) (princ "\n列距输入无效。\n") ) (princ "\n列数输入无效。\n") ) ) (princ "\n未选择任何对象。\n") ) ) (princ) ) (princ "\n脚本已加载。您可以通过在AutoCAD命令行中输入 'UDCAARRAY' 来运行用户定义的列阵列命令。\n") (defun c:UDCAARRAY () (userDefinedColumnArray) (princ) )
理解问题(defun userDefinedColumnArray () (setq selSet (entsel "\n请选择要阵列的对象:")) (if selSet (progn (setq cols (getint "\n请输入列数:")) (if cols (progn (setq colSpacing (getreal "\n请输入列距:")) (if colSpacing (progn (command "_.undo" "_mark") ; 注意:这里使用 _ARRAY 命令并尝试设置矩形阵列 (command "_ARRAY" "" "_R" "_ON" "_COL" cols "_S" colSpacing "") ; 注意:_ON 表示对象之间的间距是通过列距和行距指定的,但这里我们只指定了列距 ; 默认情况下,行数可能由用户通过交互方式指定,或者您可以在这里额外添加一个参数来指定行数 (command "_.undo" "_end") (princ "\n根据用户输入和选择的对象创建的阵列已完成。\n") ) (princ "\n列距输入无效。\n") ) (princ "\n列数输入无效。\n") ) ) (princ "\n未选择任何对象。\n") ) ) (princ) ) (princ "\n脚本已加载。您可以通过在AutoCAD命令行中输入 'UDCAARRAY' 来运行用户定义的列阵列命令。\n") (defun c:UDCAARRAY () (userDefinedColumnArray) (princ) )
已完成理解「(defun userDefinedColumnArray () (setq selSet (entsel "\n请选择要阵列的对象:")) (if selSet (progn (setq cols (getint "\n请输入列数:")) (if cols (progn (setq colSpacing (getreal "\n请输入列距:")) (if colSpacing (progn (command "_.undo" "_mark") ; 注意:这里使用 _ARRAY 命令并尝试设置矩形阵列 (command "_ARRAY" "" "_R" "_ON" "_COL" cols "_S" colSpacing "") ; 注意:_ON 表示对象之间的间距是通过列距和行距指定的,但这里我们只指定了列距 ; 默认情况下,行数可能由用户通过交互方式指定,或者您可以在这里额外添加一个参数来指定行数 (command "_.undo" "_end") (princ "\n根据用户输入和选择的对象创建的阵列已完成。\n") ) (princ "\n列距输入无效。\n") ) (princ "\n列数输入无效。\n") ) ) (princ "\n未选择任何对象。\n") ) ) (princ) ) (princ "\n脚本已加载。您可以通过在AutoCAD命令行中输入 'UDCAARRAY' 来运行用户定义的列阵列命令。\n") (defun c:UDCAARRAY () (userDefinedColumnArray) (princ) )」
展开阅读网页