[试用]：推荐一个非常好用的建筑标高标注程序。

njshf · 发表于 2003-6-14 18:22:58

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

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

×

修改了一下，可输入比例，标高自动生成，0.000m标高加±。
用"F8"键启动正交功能，也可通过"F8"键改变方向。用“F6”键输入比例。
变量bg_base为零标高基点，缺省值为(0,0)点，可根据输入值改变。
bl1为画图比例，缺省值为100.0。bl2为绘图比例，缺省值为1.0。

yetu67 · 发表于 2003-6-14 20:50:39

绘图比例如何修改？

hksunnye · 发表于 2003-6-14 21:04:16

太小了，没比例

njshf · 发表于 2003-6-15 17:55:35

调整绘图比例：(setq bl2 ***) ，***代表打印比例。也可以在原程序中修改bl2缺省值。

njshf · 发表于 2003-6-15 18:23:29

上传演示文件

yetu67 · 发表于 2003-6-15 21:23:34

VLX文件怎么修改？

njshf · 发表于 2003-6-15 21:57:16

(defun c:bl (/ s1 s2)
(setq bl1 (getvar "userr1")
bl2 (getvar "userr2")
)
(if (<= bl1 0.0)
(setq bl1 nil)
)
(if (<= bl2 0.0)
(setq bl2 nil)
)
(initget 4)
(setq s1 (getdist (strcat "输入画图比例:<"
(if bl1
(rtos bl1)
"100"
)
">:"
)
)
)
(if s1
(setq bl1 s1)
(if bl1
nil
(setq bl1 100.0)
)
)
(initget 4)
(setq s2 (getdist (strcat "输入绘图比例:<"
(if bl2
(rtos bl2)
"1"
)
">:"
)
)
)
(if s2
(setq bl2 s2)
(if bl2
nil
(setq bl2 1.0)
)
)
(setq bl (/ bl1 bl2))
(setvar "userr1" bl1)
(setvar "userr2" bl2)
(setvar "celtscale" (* (getvar "ltscale") bl2))
(princ)
)

(defun c:bl (/ s1 s2) 
  (setq        bl1 (getvar "userr1") 
        bl2 (getvar "userr2") 
  ) 
  (if (<= bl1 0.0) 
    (setq bl1 nil) 
  ) 
  (if (<= bl2 0.0) 
    (setq bl2 nil) 
  ) 
  (initget 4) 
  (setq        s1 (getdist (strcat "输入画图比例:<" 
                            (if        bl1 
                              (rtos bl1) 
                              "100" 
                            ) 
                            ">:" 
                    ) 
           ) 
  ) 
  (if s1 
    (setq bl1 s1) 
    (if        bl1 
      nil 
      (setq bl1 100.0) 
    ) 
  ) 
  (initget 4) 
  (setq        s2 (getdist (strcat "输入绘图比例:<" 
                            (if        bl2 
                              (rtos bl2) 
                              "1" 
                            ) 
                            ">:" 
                    ) 
           ) 
  ) 
  (if s2 
    (setq bl2 s2) 
    (if        bl2 
      nil 
      (setq bl2 1.0) 
    ) 
  ) 
  (setq bl (/ bl1 bl2)) 
  (setvar "userr1" bl1) 
  (setvar "userr2" bl2) 
  (setvar "celtscale" (* (getvar "ltscale") bl2)) 
  (princ) 
)

cynthia · 发表于 2003-6-22 00:54:35

很好用。但我用的时候，在转动标高符号时，屏幕上全是拖动线条，好像一只只蝴蝶。标高写好后必须pan或move一下才可以去除。有什么办法解决吗？

aeo · 发表于 2003-6-22 11:25:51

很好的一个程序.
第一点,第二点,和输标高的时候,都能右键退出就好了.

njshf · 发表于 2003-6-22 18:13:44

已经修改为都可以右键退出。谢谢。

xmlinet · 发表于 2003-7-7 00:47:54

请问能不能在调入的时候选择比例阿？

assians · 发表于 2003-7-9 00:40:31

horse · 发表于 2003-7-9 08:50:48

请问修改完之后如何转化为*.vlx文件

njshf · 发表于 2003-7-12 22:21:20

用VLISP编辑器，生成应用程序

stonelicky · 发表于 2003-7-13 21:02:35

最初由 njshf 发布
[B]用VLISP编辑器，生成应用程序 [/B]

我还是不懂，可否详细相告！

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

[试用]：推荐一个非常好用的建筑标高标注程序。

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

相关帖子

动画教学