[函数]我整理的很多有用的通用函数，有别人写的，也有本人写的

huangshang · 发表于 2006-7-21 20:40

看看,頂..

huangshang · 发表于 2006-7-21 20:40

看看,顶..

w125740513 · 发表于 2006-8-14 20:53

支持

只有交流才能进步！

jiangchyan · 发表于 2006-8-16 14:04

刚好派上了用场呀，多谢楼主!

jiangchyan · 发表于 2006-8-16 14:08

刚好派上用场呀，谢谢楼主，送花一朵。

fly_902 · 发表于 2006-8-17 21:36

我从中学了不少东西, 支持一下!

scotte · 发表于 2006-8-19 09:02

非常不错!!谢谢

liushengk · 发表于 2006-8-20 22:15

从此又省了好多事，多谢！

hanyu_gis · 发表于 2006-8-21 11:56

不错，我也加个自己用的函数；

;;;以下函数判断实体是否是CASS实体；
;;;是则返中T，否则返回nil

(defun orcass(entname)
;(setq entname (car (entsel)))
(setq jzdtab (entget entname '("*")))
(SETQ casstab (ASSOC -3 JZDTAB))
(if (= "SOUTH" (caar (cdr casstab)))
  (setq casssouth T)
  (setq cassouth nil))

)

;;;以下函数返回CASS实体代码；
;;;如果实体不是CASS格式，则返回nil;

(defun casscode(entname)
(setq jzdtab (entget entname '("*")))
(SETQ casstab (ASSOC -3 JZDTAB))
(if (= "SOUTH" (caar (cdr casstab)))
(setq casscd (cdr (car (cdr (cadr casstab)))))
(setq casscd nil))
)

shute05 · 发表于 2006-10-17 12:54

不错的东东

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