[求助]：写了个程序有时可以用有时不能用

animal212 · 发表于 2007-12-29 21:21:17

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

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

×

(defun C:ani(/ #afj feww ty ss i mj ent aa)
(load "xyp_lib.vlx")
(setvar "CMDECHO" 0)
(setq #afj (car (entsel "\n请选择所要求面积的闭合曲线：")))
(setq feww (entget #afj))
(setq ty (cdr (assoc 8 feww)))
(COMMAND "layer" "off" "*" "")
(command "layer" "on" ty "")
(setq ss (ssget '((0 . "*line"))))
(setq i 0 mj 0)
(repeat (sslength ss)
(setq ent (ssname ss i))
(command "area" "o" ent)
(setq aa (getvar "area") mj (+ mj aa))
(setq i (+ 1 i))
)
(command "_LayerP")
(command "_LayerP")
(princ (strcat "所选定范围的面积为" (rtos mj 2 2) "平方米,合" (rtos (/ mj 666.67) 2 2) "亩,合" (rtos (/ mj 666.67 15) 2 2) "公顷"))
(princ)
)

sony123 · 发表于 2007-12-29 23:02:34

期待中没有搞明白 1212 加我qq吧觉得你和测量有关我的qq：66210683
#afj 这样定义不影响吗？？！

zxq0220 · 发表于 2007-12-30 10:39:37

(ssget '((0 . "*LINE")))应改成：(ssget '((0 . "*POLYLINE")))因为实体LINE无法得到面积。

cy956 · 发表于 2007-12-30 11:25:36

应该是3楼提得问题。
另外，那个(load "xyp_lib.vlx")没用上加来干嘛？
而且作为通用函数，应该是进cad后只加载一次即可

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

[求助] [求助]：写了个程序有时可以用有时不能用

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

相关帖子