变量没有赋值,改正即可。
;---
程序是没有错的。不过你可能是选择的有问题。;我修改了一下 ;--- (defun c:gw ()(setq olddz (getvar "dimzin"))(setvar "dimzin" 0)(setvar "blipmode" 0)(prompt "选取钢筋直径:")(setq a (ssget))(setq ename (ssname a 0))(setq a1 (entget ename))(setq aa (cdr (assoc 1...
(vl-load-com)(defunc:BMJ(/lstentptsptdemjzmj);标记三角网表面积(setqlst(ssget'((0."polyline")(8."sjw")))(setqi0)(setqzmj0.000)(while(<i(sslengthlst))(setqent(ssnamelsti))... (vl-load-com) (defun c:BMJ ( / lst ent pts pt demj zmj ) ;标记三角网表面积 (setq lst (ssget ...