[编程申请]：请教eachy兄

hrbpkf · 发表于 2004-12-20 17:17:41

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

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

×

很想将天正的TAPARTAREA命令与下一段（多义线面积标注）命令连接起来，即执行完TAPARTAREA命令后直接完成面积标注命令。
(DEFUN C:vv ()       ;;;框选 PLINE 线计算面积
  (SETQ M (SSGET))
  (MJJS))

(DEFUN MJJS ()
(if (= csd nil)
   (setq csd 3))
(if (or (= cst nil)(= cst 0))
   (setq cst 350))
  (setq uu (ssname m 0))
  (setq nn (sslength m))
  (setq tmj 0 smj 0)
  (setq t 0 nnn 0)
  (while nnn
   (command "area" "e" uu)
   (setq ssmj (list (getvar "area")))
   (setq smj (car ssmj))
   (setq tmj (+ tmj smj))
   (setq t (+ t 1))
   (setq uu (ssname m t))
   (if (= t nn) (setq nnn nil))
  )
  (if (= ck1 1)
   (setq tmmj (rtos (/ tmj 1000000) 2 csd
   )       )
   (setq tmmj (rtos (/ tmj 1000000) 2 csd))
  )
  (setq po (getpoint "\n请输入标注点位置 : "))
  (if (/= cslay nil)
   (lmmjs)
   (mmmm)
  )
)

(defun mmmm ()
  (command "text" po cst 0 tmmj)
)

(defun lmmjs ()
  (if (or (= cslay "f")(= cslay "F"))
   (progn
      (setq csl (* 5 cst))
      (setq p1 (polar po 0 csl))
   )
   (progn
      (setq a1 (- 0 (/ pi 2)))
      (setq p1 (polar po a1 100))
   ))
  (SETVAR "OSMODE" 0)
  (command "text" po cst 0 lnm)
  (command "text" p1 cst 0 tmmj)

eachy · 发表于 2004-12-20 19:50:04

天正6.5中已有此功能

hrbpkf · 发表于 2004-12-20 20:01:04

eachy兄，帮帮忙吧，I NO！

eachy · 发表于 2004-12-21 00:27:38

最初由 hrbpkf 发布
[B]eachy兄，帮帮忙吧，I NO！ [/B]

你用的是什么版本?

hrbpkf · 发表于 2004-12-22 00:46:52

天正建筑5.5，切盼eachy兄答复！

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

[编程申请]：请教eachy兄

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

相关帖子

浏览过的版块