哪位哥帮修改下海盗曹老大的标注板厚源码

flytoday · 发表于 2012-7-6 18:15:20

板厚以80厚为基础，以递增10变颜色。板厚分别为80、90、100、110、120、130、140、150、160、170、180、190、200、210、220、230、240、250、260、270、280、290、300板厚不同颜色不同。。。。。。
相同板厚颜色相同：：：：：：：：：：：：：：：：：：
麻烦各位老师啦谢谢~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
源码如下：
;;; 标注板厚;;;;;;;;;
(defun inivar ()
  (setq old_os (getvar "osmode"))
  (setvar "cmdecho" 0)
  (setq aa (getvar "clayer"))
  (setq bb (getvar "textstyle"))
)
(defun c:bbh (/ d1 d2 h1 t1 t2 t3 p0 p1 p2)
  (if (null scale_bbh)
(setq scale_bbh (getstring "\n第一次运行,请选择绘图比例 <1>1:100,<2>1:150 <default=1:100>:"))
  )
  (cond
((or
   (= scale_bbh "1")
   (= scale_bbh "")
   )
   (setq d1 300
   d2 500
   h1 300
   )
)
((= scale_bbh "2")
   (setq d1 450
   d2 800
   h1 450
   )
)
((progn
   (setq scale_bbh nil)
   (exit)
   )
)
  )
  (setq t1 (getstring "\n请输入板厚<120>:"))
  (if (= t1 "")
(setq t1 "120")
  )
  (setq t2 (strcat "h=" t1))
  (while (setq p0 (getpoint "\n请输入标注板厚的中心点:"))
(setq p1 (polar p0 (* PI 0.5) d1))
(setq p2 (polar p0 0 d2))
(inivar)
(if (= scale_bbh "2")
   (command "style" "BHBZ" "tssdeng" "450" "0.7" "0" "N" "N" "N")
)
(if (or
(= scale_bbh "1")
(= scale_bbh "")
)
   (command "style" "BHBZ" "tssdeng" "300" "0.7" "0" "N" "N" "N")
)
   (command "text" "J" "MC" p0 "0" t2)
(COMMAND "CHANGE" "L" "" "P" "c" (/ (atoi t1) 33) "")
(setvar "osmode" 0)
(command "ellipse" "c" p0 p1 p2)
(COMMAND "CHANGE" "L" "" "P" "c" (/ (atoi t1) 33) "")
(setvar "osmode" old_os)
(defun resvar ()
   (setq p0 nil)
)
(setvar "clayer" aa)
(setvar "textstyle" bb)
  )
  (princ)
)

hao3ren · 发表于 2012-7-6 18:15:21

;;; 标注板厚;;;;;;;;;
(defun inivar ()
  (setq old_os (getvar "osmode"))
  (setvar "cmdecho" 0)
  (setq aa (getvar "clayer"))
  (setq bb (getvar "textstyle"))
)
(defun c:bbh (/ d1 d2 h1 t1 t2 t3 p0 p1 p2)
  (if (null scale_bbh)
(setq scale_bbh (getstring "\n第一次运行,请选择绘图比例 <1>1:100,<2>1:150 <default=1:100>:"))
  )
  (cond
((or
   (= scale_bbh "1")
   (= scale_bbh "")
   )
   (setq d1 300
   d2 500
   h1 300
   )
)
((= scale_bbh "2")
   (setq d1 450
   d2 800
   h1 450
   )
)
((progn
   (setq scale_bbh nil)
   (exit)
   )
)
  )
  (setq t1 (getstring "\n请输入板厚<120>:"))
  (if (= t1 "")
(setq t1 "120")
  )
  (setq t2 (strcat "h=" t1))
  (while (setq p0 (getpoint "\n请输入标注板厚的中心点:"))
(setq p1 (polar p0 (* PI 0.5) d1))
(setq p2 (polar p0 0 d2))
(inivar)
(if (= scale_bbh "2")
   (command "style" "dim" "simp1" "450" "0.7" "0" "N" "N" "N")
)
(if (or
(= scale_bbh "1")
(= scale_bbh "")
)
   (command "style" "dim" "simp1" "300" "0.7" "0" "N" "N" "N")
)
   (command "text" "J" "MC" p0 "0" t2)
(COMMAND "CHANGE" "L" "" "P" "c" (- (atoi t1) 79) "")
(setvar "osmode" 0)
(command "ellipse" "c" p0 p1 p2)
(COMMAND "CHANGE" "L" "" "P" "c" (- (atoi t1) 79) "")
(setvar "osmode" old_os)
(defun resvar ()
   (setq p0 nil)
)
(setvar "clayer" aa)
(setvar "textstyle" bb)
  )
  (princ)
)

hao3ren · 发表于 2012-7-6 18:40:31

没看明白，原来的标注颜色本来就是根据板厚变化的啊

flytoday · 发表于 2012-7-6 19:26:28

原来达不到变板厚变色要求~

hao3ren · 发表于 2012-7-6 19:38:25

;;; 标注板厚;;;;;;;;;
(defun inivar ()
  (setq old_os (getvar "osmode"))
  (setvar "cmdecho" 0)
  (setq aa (getvar "clayer"))
  (setq bb (getvar "textstyle"))
)
(defun c:bbh (/ d1 d2 h1 t1 t2 t3 p0 p1 p2)
  (if (null scale_bbh)
(setq scale_bbh (getstring "\n第一次运行,请选择绘图比例 <1>1:100,<2>1:150 <default=1:100>:"))
  )
  (cond
((or
   (= scale_bbh "1")
   (= scale_bbh "")
   )
   (setq d1 300
   d2 500
   h1 300
   )
)
((= scale_bbh "2")
   (setq d1 450
   d2 800
   h1 450
   )
)
((progn
   (setq scale_bbh nil)
   (exit)
   )
)
  )
  (setq t1 (getstring "\n请输入板厚<120>:"))
  (if (= t1 "")
(setq t1 "120")
  )
  (setq t2 (strcat "h=" t1))
  (while (setq p0 (getpoint "\n请输入标注板厚的中心点:"))
(setq p1 (polar p0 (* PI 0.5) d1))
(setq p2 (polar p0 0 d2))
(inivar)
(if (= scale_bbh "2")
   (command "style" "dim" "simp1" "450" "0.7" "0" "N" "N" "N")
)
(if (or
(= scale_bbh "1")
(= scale_bbh "")
)
   (command "style" "dim" "simp1" "300" "0.7" "0" "N" "N" "N")
)
   (command "text" "J" "MC" p0 "0" t2)
(COMMAND "CHANGE" "L" "" "P" "c" (/ (atoi t1) 10) "")
(setvar "osmode" 0)
(command "ellipse" "c" p0 p1 p2)
(COMMAND "CHANGE" "L" "" "P" "c" (/ (atoi t1) 10) "")
(setvar "osmode" old_os)
(defun resvar ()
   (setq p0 nil)
)
(setvar "clayer" aa)
(setvar "textstyle" bb)
  )
  (princ)
)

flytoday · 发表于 2012-7-6 20:35:50

本帖最后由 flytoday 于 2012-7-7 17:11 编辑

非常用好哈哈谢谢~

xyp1964 · 发表于 2012-7-7 07:10:07

;; bzbh(标注板厚) 需要e派工具箱(XCAD)的支持：http://xyp1964.ys168.com
;; 板厚以80厚为基础，以递增10变颜色。
;; 板厚分别为80～300，板厚不同颜色不同
(defun c:tt (/ t2 co p0 p1 p2 s1)
(cmdlasc0)
(xyp-initSet '(high) '(120))
(setq high (Uint 7 "" "板厚" high))
(if (and (<= 80 high 300)
(= (rem high 10) 0)
)
(progn
(setq t2 (strcat "h=" (itoa high))
co (/ high 2)
)
(while (setq p0 (getpoint "\n请输入标注板厚的中心点: "))
(setq p1 (polar p0 (* PI 0.5) (* xyp-sc 300))
p2 (polar p0 0 (* xyp-sc 500))
s1 (xyp-Text 5 p0 t2)
)
(xyp-put "color" s1 co)
(command "ellipse" "c" p0 p1 p2)
(xyp-put "color" (entlast) co)
)
)
)
(cmdla1)
)

flytoday · 发表于 2012-7-7 10:13:54

烦请哪位位老大改改谢谢~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

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

哪位哥帮修改下海盗曹老大的标注板厚源码

最佳答案

相关帖子

本帖子中包含更多资源

点评

评分