十字游標設定

uno0802 · 发表于 2011-3-7 22:52

目前我個人在CAD使用上感覺好用的工具LSP及DCL,上傳與大家分享

该贴已经同步到 uno0802的微博

xyz2009xyz · 发表于 2011-3-8 08:03

都是繁体字吗？有点看不懂啊，能转义成简体字就好了！

jialiang168 · 发表于 2011-3-8 13:21

楼主给个说明好不，都不知道是设定什么，怎么样子设定呐！

szboy · 发表于 2011-3-9 11:21

回复 xyz2009xyz 的帖子

(defun c:exp17()
  (setq dcl_id(load_dialog "exp17"))
  (new_dialog "exp17" dcl_id)
  (action_tile "kpick" "(done_dialog 2)")
  (action_tile "k0" "(done_dialog 0)")
  (action_tile "k15" "(done_dialog 15)")
  (action_tile "k30" "(done_dialog 30)")
  (action_tile "k45" "(done_dialog 45)")
  (action_tile "k60" "(done_dialog 60)")
  (action_tile "k75" "(done_dialog 75)")
  (action_tile "accept" "(ok_snapfast)(done_dialog 1)")
  (setq dd(start_dialog))
  (cond
   ((= dd 2)(c:picken))
   ((= dd 1)(command "snapang" angstr))
   ((= dd 0)(c:0))
   ((= dd 15)(c:15))
   ((= dd 30)(c:30))
   ((= dd 45)(c:45))
   ((= dd 60)(c:60))
   ((= dd 75)(c:75))
  )
(prin1)
)

(defun c:0()
   (setvar "snapang" 0)(prin1)

)
(defun c:15()
   (setvar "snapang" 15)(prin1)

)
(defun c:30()
   (setvar "snapang" 30)(prin1)

)
(defun c:45()
   (command "'snapang" 45)(prin1)

)
(defun c:60()
   (command "'snapang" 60)(prin1)

)
(defun c:75()
   (command "'snapang" 75)(prin1)

)
(defun ok_snapfast()
   (setq angstr(get_tile "kang"))
(princ angstr)
)
(defun c:picken()
   (setq en (entsel "點選物件"))
   (setq entdata (entget (car en)))
   (setq entype (cdr (assoc 0 entdata)))
   (cond
      ((member entype '("LINE" "POLYLINE" "LWPOLYLINE"))(sub_pickline))
      ((= entype "INSERT")(SUB_PICKBLK))
      (t (alert (strcat "錯誤的選擇->" entype "\n請選擇 Line or Pline or Block")))
   )
   (prin1)
)
(defun sub_pickline()
   (setq pp (cadr en))
   (setq p2 (osnap pp "nea"))
   (setq p1 (osnap pp "end"))
   (command "snapang" p1 p2)
  )
(defun sub_pickblk()
   (setq rang (cdr (assoc 50 entdata)))
   (setvar "snapang" rang)
  )

(princ "\n< C:EXP17 >----調整十字游標角度")
(prin1)

xyz2009xyz · 发表于 2011-3-9 18:43

exp17 :dialog {
label="調整十字游標角度"; //繷
:row{
      :column{
            :button{label="0";width="5";key="k0";}
            :button{
               label="15";
               width="5";
               key="k15";
                  }
            :button{label="30";width="5";key="k30";}
            }
      :column{
            :button{label="45";width="5";key="k45";}
            :button{label="60";width="5";key="k60";}
            :button{label="75";width="5";key="k75";}
            }
      }//end row
   :button{label="匡ン砞﹚à";key="kpick";}
   :edit_box{label="ㄤウà";allow_accept=true;key="kang";}//edit_box =trueㄣok妮兜
   spacer_1;//夹非家舱︽
   ok_cancel;//夹非家舱 ok-> key="accept" cancel-> key="cancel"
               }

这一段能不能也汉化一下？

xyz2009xyz · 发表于 2011-3-23 19:12

以前用这个程序，点选物体能够自动改变，现在点选物体的时候提示：

输入 SNAPANG 的新值 <0>: 指定第二点:
命令:

这是哪个系统变量被修改了吗？为什么会这样，求教！

edsion24 · 发表于 2011-3-24 09:04

繁体字。。。。。。

微博评论 · 发表于 2013-3-26 08:20

转发微博

来自勤奋的菊丸英二的新浪微博

微博评论 · 发表于 2013-3-26 08:20

转发微博

来自再见迷你龙1984 的新浪微博

微博评论 · 发表于 2013-3-27 04:53

转发微博

来自 2NE1CL朴春DARA宏远1985 的新浪微博

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

[资源] 十字游標設定

本帖子中包含更多资源

评分