yang686526

[求助]谁能帮我看看下面的代码错在哪里？谢谢
www.dimcax.com
[求助]谁能帮我看看下面的代码错在哪里？谢谢
这是个修改填充属性的代码，谁能帮我看看下面的代码错在哪里？除了选项里是心填充有永谢谢
(defun c:bx (/ ss e kw ssl _$area)
(vl-load-com)
(if (setq ss (ssget '((0 . "hatch"))))
(progn
(setvar "cmdecho" 0)
(setq ssl (sslength ss))
(if (= ssl 1)
(progn
(initget "b h o a s")
(setq kw
(getkword
"\n模式选择\n[重建边界(b)/独立图案(h)/原点(o)/统计面积(a)/实心填充(s)]: "
)
)
)
(progn
(initget "b h a s")
(setq kw
(getkword
"\n模式选择\n[重建边界(b)/独立图案(h)/统计面积(a)/实心填充(s)]: "
)
)
)
)
(cond
((= kw "b") ;_重建边界
(while (> ssl 0)
(setq e (ssname ss (setq ssl (1- ssl))))
(if (= (cdr (assoc 450 el)) 1)
(progn
(initdia)
(command "hatchedit" e)
)
(command ".-hatchedit" e "b" "p" "y")
)
)
)
((= kw "h") ;_ 分解为独立填充
(while (> ssl 0)
(setq e (ssname ss (setq ssl (1- ssl))))
(command ".-hatchedit" e "h")
)
)
((= kw "o") ;_指定原点
(vl-cmdf ".-hatchedit"
(ssname ss 0)
"o"
"s"
(getpoint "\n新原点: ")
"y"
)
)
((= kw "s") ;_ 变实心填充
(while (> ssl 0)
(setq e (ssname ss (setq ssl (1- ssl))))
(command ".-hatchedit" e "p" "s")
)
)
(t ;_求面积
(setq _$area 0.)
(while (> ssl 0)
(setq e (ssname ss (setq ssl (1- ssl))))
(setq _$area
(+ _$area
(vla-get-area (vlax-ename->vla-object e))
)
)
)
(princ "\n填充总面积: ")
(princ _$area)
)
)
)
)
(princ)
)
d
跪求高手来解决啊，谢谢各位了啊
d
为什么不说明一下你的程序到底出了什么样问题呢!要达到什么目的?
d
调试时前面几个选项都出现函数错误
d
自己顶一下，没有高手帮我调试一下吗？
d