[求助]：1122]BOUNDARY命令问题请教

xyz518mm · 发表于 2005-11-22 11:10:18

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

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

×

[1122]BOUNDARY命令问题请教
为何此程序中 BOUNDARY 命令制作孤立物件的物件会没有出现
如果我想将此物件留下并且移转到一个固定的图层
不知道程序对吗?
另外这段程序还有一个问题
就是贴上的数据文字为何不能编辑呢
烦请各位帮忙解答,谢谢!

(defun c:ac2 ()
(setq pt (getpoint "\n选取点: "))
   (command "-BOUNDARY" pt "" )
   (setq en (entlast))
(command "chprop" en "" "la" "bpoly" "")
   (if (/= en nil)
      (progn
         (command "area" "o" en)
         (setq aa (getvar "area"))
         (redraw en 3)
      )
   )
         (entdel en)
(IF (tblsearch "STYLE" "CHINA-H")
   (setvar "TEXTSTYLE" "CHINA-H")
   (COMMAND "-style" "CHINA-H" "simplex,china" "" "1" "" "" "" "")
)
(setq txt (strcat "\n 面积:" (rtos (/ aa 10000) 2 3) "㎡ ")
)
(command "text" pt "" "" txt)
(prin1)
)

xyp1964 · 发表于 2005-11-22 14:44:24

这样也许更好些：

[FONT=courier new](defun c:ac2 ()
(IF (tblsearch "STYLE" "宋体")
(setvar "TEXTSTYLE" "宋体")
(command "_style" "宋体" "宋体" "0" "1" "0" "" "")
)
(setq pt (getpoint "\n选取点: "))
(command "-BOUNDARY" pt "")
(setq en (entlast))
(if (/= en nil)
(progn
(command "area" "o" en)
(command "layer" "m" "tmp" "c" "1" "" "")
(command "chprop" en "" "la" "tmp" "")
(setq txt
(strcat "面积:" (rtos (/ (getvar "area") 1000000) 2 3) "㎡")
)
(command "layer" "m" "面积标注" "c" "4" "" "")
(command "text" "j" "MC" pt "300" "0" txt)
)
)
(prin1)
)[/FONT]

xyz518mm · 发表于 2005-11-22 20:35:10

謝謝xyp1964版主的回答
總算解答出來了
程序是否因為排列順序的錯誤而會造成問題呢?

xyp1964 · 发表于 2005-11-22 20:52:30

最初由 xyz518mm 发布
[B]謝謝xyp1964版主的回答
總算解答出來了
程序是否因為排列順序的錯誤而會造成問題呢? [/B]

问题：
1、(entdel en)如何再“移转到一个固定的图层”？
2、(rtos (/ aa 10000) 2 3)也换算错误。
3、(command "text" pt "" "" txt)未设字高和角度
……

tctabc · 发表于 2005-11-23 14:40:48

请问如果使用这各程序
继续发展成为将各各的面积资料做累加的动作
是否可行呢

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

[求助] [求助]：1122]BOUNDARY命令问题请教

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

相关帖子