关于矩形阵列的问题？

zilong136

• 以下两个代码都存在列间距错误的问题，要求列间距是相领两列之间的距离，求大佬帮忙解决一下。
• (defun c:qw1 ()
•   (defun a( / P)
•     (initget "Y N")
•     (setq P (getkword "是否关联？[是(Y)/否(N)]<Y>："))
•     (if (= P nil) (setq P "Y"))
•     P
•   )
•   (command "arrayrect" (ssget) "" "col" (getint "\n列数:") (getdist "\n每列间距:") "r" (getint "\n行数:") (getdist "\n每行间距:") 0 "AS" (a) "")
• ) ;;;1.矩形阵列【qw1】
• (defun c:qw2 (/ n)
•   (command "arrayrect"  (ssget) "" "as" (cond ((initget "Y N"))((getkword "是否关联？[是(Y)/否(N)]<Y>："))("Y")) "col" (setq n (getint "\n列数:")) (* n (getdist "\n列数间距:"))   "r" (getint "\n行数:") (getdist "\n行数间距:") ""  "")
• )
  

ssyfeng

用command函数首先要对CAD命令执行顺序了解清楚，不同版本CAD命令操作可能有区别，这种自己尝试多几次应该就可以了。我CAD2012没有那个col的关键字

ssyfeng

找了个CAD2022看了一下，lisp执行那个命令时操作顺序跟手动操作顺序不一样。
这个试试：

2. (defun c:qw1 ()
   
3.   (defun a( / P)
   
4.     (initget "Y N")
   
5.     (setq P (getkword "是否关联？[是(Y)/否(N)]<Y>："))
   
6.     (if (= P nil) (setq P "Y"))
   
7.     P
   
8.   )
   
9.   (command "arrayrect" (ssget) "" "c" (getint "\n行数:") (getint "\n列数:") "s" (getdist "\n每行间距:") (getdist "\n每列间距:") "AS" (a) "")
   
10. )

(defun c:qw1 ()<br />   (defun a( / P)<br />     (initget "Y N")<br />     (setq P (getkword "是否关联？[是(Y)/否(N)]<Y>："))<br />     (if (= P nil) (setq P "Y"))<br />     P<br />   )<br />   (command "arrayrect" (ssget) "" "c" (getint "\n行数:") (getint "\n列数:") "s" (getdist "\n每行间距:") (getdist "\n每列间距:") "AS" (a) "")<br /> )

zilong136

ssyfeng 发表于 2024-3-13 08:56
用command函数首先要对CAD命令执行顺序了解清楚，不同版本CAD命令操作可能有区别，这种自己尝试多几次应该 ...

我2022CAD跟2024CAD都是同样问题：
两个代码就是列间距有问题，第一个默认是首尾列间距，第二个是相领列间距，但计算时又是首尾列间距/（列数-1），搞不懂它的机制，我就想要相领两列间距。有这么难吗？

ssyfeng

这种其实就是看命令行提示就可以了，看着来修改就行了

zilong136

ssyfeng 发表于 2024-3-13 09:49
找了个CAD2022看了一下，lisp执行那个命令时操作顺序跟手动操作顺序不一样。
这个试试：

2022CAD有个问题，就是这关联始终是关联的，不管是选Y或是N,其它的正常，2024CAD正常。

ssyfeng

那个函数写的有问题，或者直接不要那个a函数

2. (defun c:qw1 (/ a)
   
3.   (defun a( / P)
   
4.     (initget "Y N")
   
5.     (setq P (getkword "是否关联？[是(Y)/否(N)]<Y>："))
   
6.     (if (or (equal p "Y") (= P nil)) (setq P "Y") (setq p "N"))
   
7.   )
   
8.   (command "arrayrect" (ssget) "" "c" (getint "\n行数:") (getint "\n列数:") "s" (getdist "\n每行间距:") (getdist "\n每列间距:") "AS" (a) "")
   
9.   (princ)
   
10. )

(defun c:qw1 (/ a)<br />   (defun a( / P)<br />     (initget "Y N")<br />     (setq P (getkword "是否关联？[是(Y)/否(N)]<Y>："))<br />     (if (or (equal p "Y") (= P nil)) (setq P "Y") (setq p "N"))<br />   )<br />   (command "arrayrect" (ssget) "" "c" (getint "\n行数:") (getint "\n列数:") "s" (getdist "\n每行间距:") (getdist "\n每列间距:") "AS" (a) "")<br />   (princ)<br /> )

2. (defun c:qw1 ()
   
3.   (command "arrayrect" (ssget) "" "c" (getint "\n行数:") (getint "\n列数:") "s" (getdist "\n每行间距:") (getdist "\n每列间距:") "AS")
   
4.   (princ)
   
5. )

(defun c:qw1 ()<br />   (command "arrayrect" (ssget) "" "c" (getint "\n行数:") (getint "\n列数:") "s" (getdist "\n每行间距:") (getdist "\n每列间距:") "AS")<br />   (princ)<br /> )

zilong136

ssyfeng 发表于 2024-3-13 10:18
那个函数写的有问题，或者直接不要那个a函数

下面那个函数怎么改？