求助求助！！！

19622928 · 发表于 2014-2-15 23:16:39

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun c:tt(/ s ss d h i e )
(if (setq ss (ssget "x" '((8 . "DGX"))))
(progn
(setq d (getreal "\n input dgj:<2.0>")
i 0)
(if (not d)(setq d 2.0))
(repeat (sslength ss)
(setq e (ssname ss i)
h (cdr (assoc 38 (entget e)))
)
(if (= 0 (rem h d))
(command "putp" "c" "201102" e "")
)
(setq i (1+ i))
)
(alert "\n ok!")
);/progn
(alert "\n no find dgx!")
)
)

我的这个程序为什么会出现这个问题？？大哥们帮忙找下问题呢！

牢固 · 发表于 2014-2-15 23:41:35

提示再清楚不过，

登录/注册后可看大图
(command "putp" "c" "201102" e "")

命令嵌套不能超过4层！

19622928 · 发表于 2014-2-15 23:53:52

牢固发表于 2014-2-15 23:41
提示再清楚不过，
(command "putp" "c" "201102" e "")

那我应该怎么办呢？难道不能用这个方法了么？

ll_j · 发表于 2014-2-16 08:50:26

19622928 发表于 2014-2-15 23:53
那我应该怎么办呢？难道不能用这个方法了么？

最好是看看能不能使用其它命令替代或模拟。
上网查了一下这个错误，似乎多数是发生在循环使用putp这个命令的时候，这就可能是这个命令本身的缺陷，就是命令本身或是结束没有退出，或是重复加载不可重复加载的内容，总之，不能对putp进行循环。
解决的另一个方法是循环放在命令中，但这也只是解决表面问题，最终结果是，这个程序在一次打开的图中不能多次使用。

st788796 · 发表于 2014-2-16 08:58:25

本帖最后由 st788796 于 2014-2-16 09:03 编辑

又是CASS命令，遇过多次了，这些CASS命令放到循环中就是这个错误，单用可以，估计该软件设计之初就没想让你再开发用，尤其是批量处理！

q3_2006 · 发表于 2014-2-16 10:53:16

本帖最后由 q3_2006 于 2014-2-16 10:54 编辑

command 改成VL-CMDF

st788796 · 发表于 2014-2-16 12:00:30

q3_2006 发表于 2014-2-16 10:53
command 改成VL-CMDF

可以吗？
好像vla-sendcommand一样出错

q3_2006 · 发表于 2014-2-16 13:02:24

st788796 发表于 2014-2-16 12:00
可以吗？
好像vla-sendcommand一样出错

我也不确定...但之前测绘的网友问过这个问题...改成VL-CMDF就可以了....我没用测绘的软件,也没测试过......但问的人真的超多...大师还是总结个有效的处理方法比较好....

q3_2006 · 发表于 2014-2-16 13:10:55

st788796 发表于 2014-2-16 12:00
可以吗？
好像vla-sendcommand一样出错

另外...大师看看这个帖子http://bbs.mjtd.com/thread-109185-2-1.html......G版说分组排序...可以实现任意角度....我似乎不能用E大的分组函数做到........已经回复G版了,但还没回应....大师要不要研究下,给个教学范例....谢谢了!

st788796 · 发表于 2014-2-16 14:38:23

q3_2006 发表于 2014-2-16 13:10
另外...大师看看这个帖子http://bbs.mjtd.com/thread-109185-2-1.html......G版说分组排序...可以实现任 ...

不知道理解的对不对, 偶数时居中，奇数时-1等分
取一个特征点用 TableSort 排大行，然后行内排是否紧邻，这个要单写，依次往后判断特征点距离是否小于车位宽度，分出小组
在小组内判断奇偶

至于有多种角度时，可以先按角度分组，在组内执行上面的步骤

q3_2006 · 发表于 2014-2-16 15:00:51

st788796 发表于 2014-2-16 14:38
不知道理解的对不对, 偶数时居中，奇数时-1等分
取一个特征点用 TableSort 排大行，然后行内排是否紧邻 ...

奇数+1等分...问题是如果有角度....分组困难呀....院长后面有演示的情况....车位是不是水平或竖直的情况不知道怎么办....

st788796 · 发表于 2014-2-16 15:37:55

q3_2006 发表于 2014-2-16 15:00
奇数+1等分...问题是如果有角度....分组困难呀....院长后面有演示的情况....车位是不是水平或竖直的情况 ...

按角度分组，对应特征点转换下坐标（看高飞鸟的 Trans 帖子) TableSort 只和坐标有关，

st788796 · 发表于 2014-2-16 17:04:51

本帖最后由 st788796 于 2014-2-16 17:05 编辑

q3_2006 发表于 2014-2-16 15:00
奇数+1等分...问题是如果有角度....分组困难呀....院长后面有演示的情况....车位是不是水平或竖直的情况 ...

构造 ((角度 (插入点块)) ...) 实体列表，按角度分组
组内
用一个旋转矩阵转换插入点，然后用 XD::List:TableSort 分行列
对分出的各行按临近处理

q3_2006 · 发表于 2014-2-16 17:09:47

st788796 发表于 2014-2-16 17:04
构造 ((角度 (插入点块)) ...) 实体列表，按角度分组
组内
用一个旋转矩阵转换插入点，然后用 XD:i ...

矩阵我是真的看不懂呀.....{:soso_e110:}

st788796 · 发表于 2014-2-16 17:25:42

本帖最后由 st788796 于 2014-2-16 17:31 编辑

q3_2006 发表于 2014-2-16 17:09
矩阵我是真的看不懂呀.....

剩下的就是再嵌套两个 Mapcar 处理临近的组
还有就是优化, 每组内只有一个或者两个的时候要不要排行

(defun c:tt (/ ss lst mat0)
(if (setq ss (ssget '((0 . "insert"))))
(progn
(setq lst (mapcar '(lambda (x)
(list (xdrx_getpropertyvalue x "Rotation")
(list (xdrx_getpropertyvalue x "Position")
x
)
)
)
(xdrx_pickset->ents ss)
)
lst (XD::List:GroupByIndex lst 1e-3)
mat0 (xdrx_matrix_identity 3)
lst (mapcar
'(lambda (x / mat)
(setq mat (xdrx_matrix_setrotation
mat0
(car x)
'(0 0 1)
'(0 0 0)
)
)
(mapcar
'(lambda (a)
(list (xdrx_point_transform (car a)) (cadr a))
)
(cdr x)
)
)
lst
)
lst (mapcar '(lambda (x)
(XD::List:TableSort x 0 0 1e-3)
)
lst
)
)
)
)
(princ)
)

(defun c:tt (/ ss lst mat0) 
  (if (setq ss (ssget '((0 . "insert")))) 
    (progn 
      (setq lst         (mapcar '(lambda (x) 
                            (list (xdrx_getpropertyvalue x "Rotation") 
                                  (list        (xdrx_getpropertyvalue x "Position") 
                                        x 
                                  ) 
                            ) 
                          ) 
                         (xdrx_pickset->ents ss) 
                 ) 
            lst         (XD::List:GroupByIndex lst 1e-3) 
            mat0 (xdrx_matrix_identity 3) 
            lst         (mapcar 
                   '(lambda (x / mat) 
                      (setq mat        (xdrx_matrix_setrotation 
                                  mat0 
                                  (car x) 
                                  '(0 0 1) 
                                  '(0 0 0) 
                                ) 
                      ) 
                      (mapcar 
                        '(lambda (a) 
                           (list (xdrx_point_transform (car a)) (cadr a)) 
                         ) 
                        (cdr x) 
                      ) 
                    ) 
                   lst 
                 ) 
            lst         (mapcar '(lambda (x) 
                            (XD::List:TableSort x 0 0 1e-3) 
                          ) 
                         lst 
                 ) 
      ) 
    ) 
  ) 
  (princ) 
)

账号		自动登录	找回密码
密码			立即注册

[求助] 求助求助！！！

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评

点评

点评

点评

点评