求助关于vla函数的问题【已解决】

a117034423 · 发表于 2021-1-7 15:29:52

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

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

×

本帖最后由 a117034423 于 2021-1-9 10:48 编辑

(defun c:dbb (/ );dis1 pt1 ss1 ss2 i en)
(setvar "cmdecho" 0)
(setq dis1 (getint "请输入板搭墙尺寸，默认为15mm: "))
(if (= dis1 nil) (setq dis1 15))
(setq pt1 0)
(setq ss2 (ssadd))
(while pt1
(setq pt1 (getpoint "\n拾取房间内部点<退出>:"))
(if ss1
(if (not (pntisin pt1 (vl-remove nil (mapcar '(lambda (x) (if (= (car x) 10) (cdr x))) (entget ss1)))))
(vl-cmdf "_.-boundary" "_a" "_island" "_no" "" "" pt1 ""))
(vl-cmdf "_.-boundary" "_a" "_island" "_no" "" "" pt1 "")
)
(setq ss1 (entlast))
(redraw ss1 3)
(ssadd ss1 ss2)
)
(setq i 0
AcadObj (vlax-get-acad-object)
AcadDoc (vla-get-ActiveDocument Acadobj)
mSpace(vla-get-ModelSpace Acaddoc)
)
(repeat (sslength ss2)
(setq en (vlax-ename->vla-object (ssname ss2 i))
i (1+ i)
)
(vl-load-com)
(vla-put-Layer en "板轮廓线") ；不能设定图层
(vla-offset en dis1) ；不能偏移对象
(vla-erase en) ；不能删除对象
)
(redraw)
(princ "<完成>")
)

(defun c:dbb (/ );dis1 pt1 ss1 ss2 i en) 
  (setvar "cmdecho" 0) 
  (setq dis1 (getint "请输入板搭墙尺寸，默认为15mm: ")) 
  (if (= dis1 nil) (setq dis1 15)) 
  (setq pt1 0) 
  (setq ss2 (ssadd)) 
  (while pt1 
  (setq pt1 (getpoint "\n拾取房间内部点<退出>:")) 
  (if ss1 
  (if (not (pntisin pt1 (vl-remove nil (mapcar  '(lambda (x) (if (= (car x) 10) (cdr x))) (entget ss1))))) 
  (vl-cmdf "_.-boundary" "_a" "_island" "_no" "" "" pt1 "")) 
  (vl-cmdf "_.-boundary" "_a" "_island" "_no" "" "" pt1 "") 
    ) 
  (setq ss1 (entlast)) 
  (redraw ss1 3) 
  (ssadd ss1 ss2) 
  ) 
(setq i 0 
        AcadObj (vlax-get-acad-object) 
        AcadDoc (vla-get-ActiveDocument Acadobj) 
        mSpace(vla-get-ModelSpace Acaddoc) 
        ) 
  (repeat (sslength ss2) 
  (setq en (vlax-ename->vla-object (ssname ss2 i)) 
        i  (1+ i) 
        ) 
  (vl-load-com) 
  (vla-put-Layer en "板轮廓线") ；不能设定图层 
  (vla-offset en dis1) ；不能偏移对象 
  (vla-erase en) ；不能删除对象 
  ) 
  (redraw) 
  (princ "<完成>") 
  )

后面用vla设定图元图层、偏移、删除都不能用，请问是不是有哪里操作漏了，初试VL错误代码：
Application Error: 0 :- 参数类型错误: 二维/三维点: nilADS 请求错误

lijiao · 发表于 2021-1-7 16:31:41

本帖最后由 lijiao 于 2021-1-7 16:33 编辑

1、你得先确定当前文档中是否有指定的图层
2、ss2选择集中的图元是否都具有offset方法
3、确认构成ss2选择集的过程中是否有错（错误很可能在这个部分）
4、（VL-LOAD-COM）应放在程序前面

marting · 发表于 2021-1-7 17:03:05

本帖最后由 marting 于 2021-1-7 17:04 编辑

执行VLA函数，最好用
vl-catch-all-apply 封装起来
去看下开源函数库论坛

（XD::CatchApply）封装 vl-catch-all-error-p，vl-catch-all-apply

0 个回复 - 220 次查看

2017-5-9 13:09 - Lispboy - 开源函数库

/db_自贡黄明儒_ · 发表于 2021-1-7 17:09:10

dcl1214的办法是：不管3721，所有函数统统用vl-catch-all-apply 封装起来

a117034423 · 发表于 2021-1-7 18:00:21

谢谢黄大师和马大师，我一会就试试

a117034423 · 发表于 2021-1-7 18:03:05

lijiao 发表于 2021-1-7 16:31
1、你得先确定当前文档中是否有指定的图层
2、ss2选择集中的图元是否都具有offset方法
3、确认构成ss2选 ...

您说的四个地方，我检索是没问题的，因为是用boundary生成的封闭多段线，生成才能放入选择集，而且已经考虑了去重，我觉得是封装的问题，程序单独测试执行都没问题，就是加载代码提示错误

newer · 发表于 2021-1-7 18:19:40

a117034423 发表于 2021-1-7 18:03
您说的四个地方，我检索是没问题的，因为是用boundary生成的封闭多段线，生成才能放入选择集，而且已经考 ...

跟踪下，看看 en 有值没？

另外，用VL函数操作对象，多加判断语句，判断下是否支持该方法

条件不满足，加调试打印语句，你就知道哪里出问题了

比如：
(if (vlax-method-applicable-p en 'offset)
(vla-offset en dis1)
(princ "\n不支持偏移")
)

或者：
(if (vl-catch-all-error-p (vl-catch-all-apply 'vla-offset (list en dist1))))
(princ "\n不支持偏移对象")
)

a117034423 · 发表于 2021-1-8 06:28:47

newer 发表于 2021-1-7 18:19
跟踪下，看看 en 有值没？

另外，用VL函数操作对象，多加判断语句，判断下是否支持该方法

谢谢n大，学习了

hh_lj007 · 发表于 2021-1-8 09:02:39

我所知的调试方法都体现出来了，还有没有其它调试的好方法。

lijiao · 发表于 2021-1-8 09:38:07

把(vl-cmdf "_.-boundary" "_a" "_island" "_no" "" "" pt1 "")
改为(command "boundary" "a" "i" "n" "" "" pt1 "")

你再看看效果

a117034423 · 发表于 2021-1-8 11:14:07

lijiao 发表于 2021-1-8 09:38
把(vl-cmdf "_.-boundary" "_a" "_island" "_no" "" "" pt1 "")
改为(command "boundary" "a" "i" "n" "" ...

谢谢，我试试
这步没问题是后面offset和put-layer有问题

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

[已解决] 求助关于vla函数的问题【已解决】

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

点评

点评

点评

点评