[分享]：［蜜蜂软体］坐标标注----新(源码)[2005.2.17更新]

zyx-zbb · 发表于 2005-2-21 15:29:47

功能太强，操作有点复杂了

JH9981 · 发表于 2005-2-21 16:35:40

楼主你好，我加载了主程序后怎么显示不出“坐标标注设置”的对话框?

netbee · 发表于 2005-2-21 20:37:26

最初由 JH9981 发布
[B]楼主你好，我加载了主程序后怎么显示不出“坐标标注设置”的对话框? [/B]

你的对话框文件及幻灯片文件要放在CAD的支持目录下，最好是复制到Support目录中。
－－－－－－－－－－
呵呵，掉了三个函数，这里补上。一楼的也已经补上了。
2005.2.24补：

;;坐标转换
;;A=(X-X0)cosA+(Y-Y0)sinA+A0
;;B=(Y-Y0)cosA-(X-X0)sinA+B0
;;ptu_ab:点ptu在AB坐标系中的坐标;
　
;;ptu_xy:点ptu在xy坐标系中的坐标;
;;ang1：两坐标系的夹角（ab坐标系在xy坐标系中的方位角)
;;pt:需要转换的点
(defun pt_xy->ab (ptu_xy ptu_ab ang1 pt /)
(list (+ (* (- (car pt) (car ptu_xy)) (cos ang1))
(* (- (cadr pt) (cadr ptu_xy)) (sin ang1))
(car ptu_ab)
)
(+ (* (- (cadr pt) (cadr ptu_xy)) (cos ang1))
(- 0.0 (* (- (car pt) (car ptu_xy)) (sin ang1)))
(cadr ptu_ab)
)
(caddr pt)
)
)
;;坐标转换
;;X=(A-A0)cosA-(B-B0)sinA+X0
;;Y=(B-B0)cosA+(A-A0)sinA+Y0
;;ptu_ab:点ptu在AB坐标系中的坐标;
　
;;ptu_xy:点ptu在xy坐标系中的坐标;
;;ang1：两坐标系的夹角（ab坐标系在xy坐标系中的方位角)
;;pt:需要转换的点
(defun pt_ab->xy (ptu_xy ptu_ab ang1 pt /)
(list (+ (* (- (car pt) (car ptu_ab)) (cos ang1))
(- 0.0 (* (- (cadr pt) (cadr ptu_ab)) (sin ang1)))
(car ptu_xy)
)
(+ (* (- (cadr pt) (cadr ptu_ab)) (cos ang1))
(* (- (car pt) (car ptu_ab)) (sin ang1))
(cadr ptu_xy)
)
(caddr pt)
)
)
;;;==================================================================
;;; (StrParse Str Delimiter)
;;; 将具有分隔符的字符串解析为列表
;;;------------------------------------------------------------------
;;; 参数:
;;; Str 要解析的字符串
;;; Delimiter 要搜索的分隔符
;;;------------------------------------------------------------------
;;; 返回:
;;; 一个字符串列表。
;;; 示例:
;;; (setq a "Harp,Guiness,Black and Tan")
;;; (StrParse a ",")
;;; 返回:
;;; ("Harp" "Guiness" "Black and Tan")
;;;------------------------------------------------------------------
;;; 相关主题: (StringToList)
;;;------------------------------------------------------------------
(defun strParse (Str Delimiter / SearchStr StringLen return n char)
(setq SearchStr Str)
(setq StringLen (strlen SearchStr))
(setq return '())
(while (> StringLen 0)
(setq n 1)
(setq char (substr SearchStr 1 1))
(while (and (/= char Delimiter) (/= char ""))
(setq n (1+ n))
(setq char (substr SearchStr n 1))
) ;_ end of while
(setq return (cons (substr SearchStr 1 (1- n)) return))
(setq SearchStr (substr SearchStr (1+ n) StringLen))
(setq StringLen (strlen SearchStr))
) ;_ end of while
(reverse return)
) ;_ end of defun

;;坐标转换 
;;A=(X-X0)cosA+(Y-Y0)sinA+A0 
;;B=(Y-Y0)cosA-(X-X0)sinA+B0 
;;ptu_ab:点ptu在AB坐标系中的坐标; 
　 
;;ptu_xy:点ptu在xy坐标系中的坐标; 
;;ang1：两坐标系的夹角（ab坐标系在xy坐标系中的方位角) 
;;pt:需要转换的点 
(defun pt_xy->ab (ptu_xy ptu_ab ang1 pt /) 
  (list        (+ (* (- (car pt) (car ptu_xy)) (cos ang1)) 
           (* (- (cadr pt) (cadr ptu_xy)) (sin ang1)) 
           (car ptu_ab) 
        ) 
        (+ (* (- (cadr pt) (cadr ptu_xy)) (cos ang1)) 
           (- 0.0 (* (- (car pt) (car ptu_xy)) (sin ang1))) 
           (cadr ptu_ab) 
        ) 
        (caddr pt) 
  ) 
) 
;;坐标转换 
;;X=(A-A0)cosA-(B-B0)sinA+X0 
;;Y=(B-B0)cosA+(A-A0)sinA+Y0 
;;ptu_ab:点ptu在AB坐标系中的坐标; 
　 
;;ptu_xy:点ptu在xy坐标系中的坐标; 
;;ang1：两坐标系的夹角（ab坐标系在xy坐标系中的方位角) 
;;pt:需要转换的点 
(defun pt_ab->xy (ptu_xy ptu_ab ang1 pt /) 
  (list        (+ (* (- (car pt) (car ptu_ab)) (cos ang1)) 
           (- 0.0 (* (- (cadr pt) (cadr ptu_ab)) (sin ang1))) 
           (car ptu_xy) 
        ) 
        (+ (* (- (cadr pt) (cadr ptu_ab)) (cos ang1)) 
           (* (- (car pt) (car ptu_ab)) (sin ang1)) 
           (cadr ptu_xy) 
        ) 
        (caddr pt) 
  ) 
) 
;;;================================================================== 
;;; (StrParse Str Delimiter) 
;;;                将具有分隔符的字符串解析为列表 
;;;------------------------------------------------------------------ 
;;; 参数: 
;;;                Str                        要解析的字符串 
;;;                Delimiter        要搜索的分隔符 
;;;------------------------------------------------------------------ 
;;;        返回: 
;;;                一个字符串列表。 
;;;                示例: 
;;;                (setq a "Harp,Guiness,Black and Tan") 
;;;                (StrParse a ",") 
;;;                返回: 
;;;                ("Harp" "Guiness" "Black and Tan") 
;;;------------------------------------------------------------------ 
;;; 相关主题: (StringToList) 
;;;------------------------------------------------------------------ 
(defun strParse        (Str Delimiter / SearchStr StringLen return n char) 
  (setq SearchStr Str) 
  (setq StringLen (strlen SearchStr)) 
  (setq return '()) 
  (while (> StringLen 0) 
    (setq n 1) 
    (setq char (substr SearchStr 1 1)) 
    (while (and (/= char Delimiter) (/= char "")) 
      (setq n (1+ n)) 
      (setq char (substr SearchStr n 1)) 
    ) ;_ end of while 
    (setq return (cons (substr SearchStr 1 (1- n)) return)) 
    (setq SearchStr (substr SearchStr (1+ n) StringLen)) 
    (setq StringLen (strlen SearchStr)) 
  ) ;_ end of while 
  (reverse return) 
) ;_ end of defun

li809 · 发表于 2005-2-27 17:54:04

跟以下这个有什么不一样呢
http://www.xdcad.net/forum/showt ... 1684088#post1684088

netbee · 发表于 2005-2-27 18:04:22

最初由 li809 发布
[B]跟以下这个有什么不一样呢
http://www.xdcad.net/forum/showt ... 1684088#post1684088 [/B]

功能是一样的，只不过这里是源码，供大家参考，而另一处是编译过的，供不太懂LISP的人使用。

lmt112233 · 发表于 2005-2-28 11:36:40

一个非常强大的工具,可否把這坐标标注工具多加一個選項,把它變成英文版本,因為我用的是繁體字,坐标标注工具介面上的文字變成亂碼,煩請樓主可否修改一下,

zhynt · 发表于 2005-3-4 01:30:30

命令: (LOAD "Dimzb.lsp")
测量坐标标注程序:ZBBZnil

命令: zbbz
参数类型错误: stringp nil
命令:
命令: zbbz

｛坐标系：当前\比例：1.00000\前缀：Xy\图层：专用\坐标互换：是｝标注基点或[选项(
O)]<退出>：o 参数类型错误: stringp nil
命令:
命令: ZBBZ
｛坐标系：当前\比例：1.00000\前缀：Xy\图层：专用\坐标互换：是｝标注基点或[选项(
O)]<退出>：o 参数类型错误: stringp nil
命令:

为何？？对话框只是一闪就没了，显示某个字符串参数为空。

netbee · 发表于 2005-3-4 17:41:59

这里Netbee_Lisp_Dir 变量是我的程序目录。

(if
(< (setq
Dcl_id (load_dialog (strcat Netbee_Lisp_Dir "Dim_zb.dcl"))
)
;;(< (setq Dcl_id (load_dialog "Dimzb.dcl"))
0
) ;_ 结束<
(exit)
) ;_ 结束if

改为这样就行了。

(if
(< (setq
Dcl_id (load_dialog "Dim_zb.dcl")
)
0
) ;_ 结束<
(exit)
) ;_ 结束if

你若不熟悉LISP，且不会用VL编辑器来跟踪调试的话，最好使用我已经编译好的VLX程序。里面已经全部搞定。
http://www.xdcad.net/forum/showt ... 1678748#post1678748

li809 · 发表于 2005-3-4 20:01:30

我不懂LISP,还是用VLX的吧,谢谢

zhynt · 发表于 2005-3-5 02:29:44

最初由 netbee 发布
[B]这里Netbee_Lisp_Dir 变量是我的程序目录。
[code] (if
 (< (setq
 Dcl_id (load_dialog (strcat Netbee_Lisp_Dir "Dim_zb.dcl"))
 )
 ;;(< (setq Dcl_id (load_dialog "Dimzb.dcl"))
 0
 ... [/B]

不是这个的原因，因为程序中已经修改了，对话框也已经加载，只是由于某个变量为空，对话框不能初始化罢了。

另外问个问题：
用“VL”调试，应该是执行到哪里，哪里就应该高亮显示（即有个反亮框随者语句的执行而移动。我只碰到过两次，其余都是没有什么变化，不知你们的是怎样的。

zhynt · 发表于 2005-3-6 23:08:28

已经搞定了，原来是你的那个存放程序目录的变量在作怪。

asuscheng · 发表于 2005-3-8 16:55:32

黑啊

luob72 · 发表于 2005-3-9 16:51:23

下了，不会用，：（

asuscheng · 发表于 2005-3-10 19:14:10

学习中，不怎么会用。

ysy419 · 发表于 2005-3-22 09:20:59

很好用，谢谢。可是在CAD2005里不能用，Netbee，能否提供个2005的扩展函数？

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