[LISP函数]：给大家一个求面积封闭区域面积的函数！

Gu_xl · 发表于 2005-4-15 16:18:40

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

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

×

给大家一个求面积封闭区域面积的函数！

啵浪鼓 · 发表于 2005-4-15 18:08:01

楼主还有一些程序没贴完吧，比如(initArea)

Command: mj
Command: mj ; error: no function definition: INITAREA

Command: mj
请选择中心点:; error: no function definition: ENTNEXTALL

Gu_xl · 发表于 2005-4-19 12:02:19

不好意思！漏贴了，该函数是对面记住注记的一些设置，原程序如下：
;面积注记高度 mjHeight
;(setq mjHeight 1.0)
;UserR2 注记高度
;UserI1=1000 单位为毫米
;UserI1=999 单位为米
(defun InitArea ()
  (setq mjdw (getvar "UserI1"))
  (IF (= 0 MJDW)
(progn
   (INITget 7 "Yes No  ")
   (setq Mjdw (getKword "\n以毫米为单位?[<Yes/No>]<No>:"))
   (if (= mjdw "") (setq mjdw "No"))
   );progn
(if (or (= mjdw 999) (= mjdw 1000))
   ()
   (progn
   (INITget 7 "Yes No  ")
   (setq Mjdw (getKword "\n以毫米为单位?[<Yes/No>]<No>:"))
   (if (= mjdw "") (setq mjdw "No"))
   );progn
   );if
);if
  (if (= mjdw "Yes")
(setq mjdw 1000)
(if (= mjdw "No") (setq mjdw 999))
)
  (setq mjHeight (getvar "UserR2"))
  (if (< mjHeight 0.001)
(progn
   (initget 7 "  ")
   (setq mjHeight (getreal "\n请输入注记高度:<1.0>"))
   (if (= mjHeight "") (setq mjHeight 1.0))
   );progn
)
  (setvar "UserI1" mjdw)
  (setvar "UserR2" mjHeight)

  )

(defun EntNextAll (ent / ss ent1)
  (setq ss (ssadd))
  (while (setq ent1 (entnext ent))
(ssadd ent1 ss)
(setq ent ent1)
)
  (if (= 0 (sslength ss))
nil
(setq ss ss)
)
  )

qinjg8008 · 发表于 2005-4-19 13:47:44

还不错,收下了

rzg1972 · 发表于 2008-9-15 15:24:47

又一个下不了。

hhy1985 · 发表于 2008-9-21 11:37:34

收下！不错！以前也研究过

maker_lv · 发表于 2020-4-26 18:05:03

顶一下，学习学习！！！！

xxchemkin · 发表于 2020-11-24 21:34:34

下载来看看，学习大佬技法。

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

[LISP函数]：给大家一个求面积封闭区域面积的函数！

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

相关帖子