加载虚线和点划线线型

ayl1004 · 发表于 2013-7-15 20:05:07

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

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

×

(defun g/getAllLineTypes (/ g/1/LVar0 g/1/LVar1 g/1/LVar2 g/1/LVar3 g/1/LVar4)
  (setq g/1/LVar0 (vla-get-LineTypes cDocum) ; 获取线形集合
g/1/LVar1 (vla-get-Count g/1/LVar0)  ; 获取集合中元素的个数
g/1/LVar2 0       ; 初始化索引号
g/1/LVar3 nil       ; 初始化所有线形的表
  )
  (while (< g/1/LVar2 g/1/LVar1)
(setq g/1/LVar4 (vla-get-name (vla-item g/1/LVar0 g/1/LVar2))
g/1/LVar3 (cons g/1/LVar4 g/1/LVar3)
g/1/LVar2 (1+ g/1/LVar2)
)
  )
  (if (not (member "CENTER2" g/1/LVar3))
(progn
   ;;获取测量单位是英制还是公制
   (setq g/1/LVar2 (getvar "MEASUREMENT"))
   (if (= g/1/LVar2 0)
(setq g/1/LVar4 "acad.lin")
(setq g/1/LVar4 "acadISO.lin")
   )
   (setq g/1/LVar1 (findfile g/1/LVar4))
   (vla-load g/1/LVar0 "CENTER2" g/1/LVar1)
   (setq g/1/LVar3 (cons "CENTER2" g/1/LVar3))
)
  )
  (if (not (member "HIDDEN2" g/1/LVar3))
(progn
   (setq g/1/LVar2 (getvar "MEASUREMENT"))
   (if (= g/1/LVar2 0)
(setq g/1/LVar4 "acad.lin")
(setq g/1/LVar4 "acadISO.lin")
   )
   (setq g/1/LVar1 (findfile g/1/LVar4))
   (vla-load g/1/LVar0 "HIDDEN2" g/1/LVar1)
   (setq g/1/LVar3 (cons "HIDDEN2" g/1/LVar3))
)
  )
  g/1/LVar3
)

newer · 发表于 2013-7-15 20:59:20

被楼主的函数名和变量名写法吸引进来的。

Free-Lancer · 发表于 2013-7-15 20:59:34

楼主这样用变量是为了防破解？来自: Android客户端

ayl1004 · 发表于 2013-7-16 05:07:34

Free-Lancer 发表于 2013-7-15 20:59
楼主这样用变量是为了防破解？

以前写的，不是为了防破解，当时是想为了节省变量的个数。

ayl1004 · 发表于 2013-7-16 05:10:18

newer 发表于 2013-7-15 20:59
被楼主的函数名和变量名写法吸引进来的。

以前写的，现在不想改了

ayl1004 · 发表于 2013-7-16 05:17:32

还有一个目的是防变量名冲突

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

[选择集] 加载虚线和点划线线型

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

相关帖子

点评

点评