[求助]：在此麻烦大侠：给帮忙看看此程序是什么意思？

frankxie · 发表于 2005-12-28 20:50:12

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

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

×

另外想问问 (Command "area" "o" en)最后根的en是什么意思？谢谢了

(Defun C:DXY ()
   (SetQ en (EntSel "\n指定冲裁模轮廓: "))
   (Command "area" "o" en)
   (SetQ el (GetVar "perimeter")
      ed (GetDist "\n切分间距: ")
   )
   (If (< 32766 (Fix (/ el ed)))
   (Progn (Alert (StrCat "切分间距太小，"
                              "AutoCAD 2000 目前还不能完成。"
                              "\n程序将要结束了。"
                  )
            )
   )
      (Progn (SetQ fn (Open (GetString "\n文件名：") "w"))
         (Command "measure" en ed)
         (SetQ ps (SSGet "x" '((0 . "POINT"))) pn 0)
         (While (SetQ pp (SSName ps pn))
         (SetQ pt (Cdr (Assoc 10 (EntGet pp))))
         (Write-Line (StrCat (RToS (Car pt))) fn)
         (SetQ pn (1+ pn))
         (EntDel pp)
   )
               (Close fn)
   )
   )
   (PrinC)
)

netbee · 发表于 2005-12-28 21:22:31

注意前一句：(SetQ en (EntSel "\n指定冲裁模轮廓: "))

en就是你刚选择的冲裁模轮廓对象。

frankxie · 发表于 2005-12-28 22:04:15

你好
谢谢
不过我是想问为什么要跟en
在此谢谢

狂刀 · 发表于 2005-12-28 23:02:32

用ａｒｅａ，ｏ　看看ｃａｄ的提示不就知道了

frankxie · 发表于 2005-12-29 10:08:05

谢谢

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

[求助] [求助]：在此麻烦大侠：给帮忙看看此程序是什么意思？

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

相关帖子