[求助]如何使用这个尺寸驱动程序

helloyf

在论坛里有个尺寸驱动程序，其全文如下：

;;;编写: BDYCAD
;;;时间: 2005-03-18
;;;开发用时  26分钟
;;;功能: 尺寸驱动
(defun c:tt(/ BLB EP ESPL N-EP N-SP NEW-T SD SD-DXF SEA SEB SP SS1 SS2 SS3)
  (setq SD (entsel "\n选择驱动尺寸:"))
  (if SD
    (PROGN
      (SETQ SD-DXF (ENTGET (CAR SD)))
      (WHILE (NOT (wcmatch (CDR (ASSOC 0 SD-DXF)) "*DIM*"))
 (setq SD (entsel "\n选择驱动尺寸:"))
 (SETQ SD-DXF (ENTGET (CAR SD))))
      (SETQ SP (CDR (ASSOC 13 SD-DXF))
     EP (CDR (ASSOC 14 SD-DXF))
     ESPL (DISTANCE SP EP)
     SEA (ANGLE SP EP)
     SEB (ANGLE EP SP)
     NEW-T (getdist "\n新的长度:"))
      (while (eq nil NEW-T)
 (setq  NEW-T (getdist "\n新的长度:")))
      (if NEW-T
 (progn
      (setq BLB (* 0.5 (abs (-  NEW-T ESPL))))
      (if (> ESPL NEW-T )
 (setq N-SP (POLAR SP SEA BLB)
       N-EP (POLAR EP (+ PI SEA) BLB))
 (setq N-SP (POLAR SP SEB BLB)
       N-EP (POLAR EP (+ PI SEB) BLB))
 )
      (setvar "osmode" (logior (getvar "osmode") 16384))
      (setvar "cmdecho" 0)
      (vl-cmdf "_.undo" "_group")
      (SETQ SS1 (SSGET "C" (POLAR SP (+ PI (* 0.25 PI)) 0.4)(POLAR SP (* 0.25 PI) 0.4))
     SS2 (SSGET "C" (POLAR EP (+ PI (* 0.25 PI)) 0.4)(POLAR EP (* 0.25 PI) 0.4))
     )
      (IF SS1
 (COMMAND "STRETCH" (SSGET "C" (POLAR SP (+ PI (* 0.25 PI)) 0.4)(POLAR SP (* 0.25 PI) 0.4))
   ""SP N-SP))
      (IF SS3
 (COMMAND "STRETCH" (SSGET "C" (POLAR EP (+ PI (* 0.25 PI)) 0.4)(POLAR EP (* 0.25 PI) 0.4))
   ""EP N-EP))
      (vl-cmdf "_.undo" "_end")
      (setvar "osmode" (logand (getvar "osmode") 49151))
      (PRINC"\n编写:BDYCAD\n尺寸驱动程序运行完毕, 欢迎使用.谢谢!")))
      )
    )
  (princ)
  )

可是我把保存为qd.lsp文件后，加AutoCAD2006中加载成功，却不知道如何使用。好像原文中是输入S1或S2即可调出命令，然而我却不能。

具体怎么用，有哪位大侠知道吗？

BDYCAD

tt命令

革天明

如图所示，我对一个矩形进行尺寸驱动，当更改12.39为6时，驱动的结果为9.2，请问是我操作或是理解的有误吗

ZZXXQQ

程序是双向驱动尺寸。将代码中变量ss3改成ss2就行了。
下面给出精简版程序：

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

yaokui25

在论坛里有个尺寸驱动程序

sdbaijiao

谢谢了，我找了好久的东西

xiang19751218

程序不错，下载了。

wuzheng80425

能单边驱动就好了，
先选择尺寸，修改要驱动的数字，然后框选图形（就像拉伸一样）

ZZXXQQ

wuzheng80425 发表于 2015-7-21 14:30
能单边驱动就好了，
先选择尺寸，修改要驱动的数字，然后框选图形（就像拉伸一样）

程序如何知道驱动哪边呢？

wuzheng80425

ZZXXQQ 发表于 2015-7-22 08:11
程序如何知道驱动哪边呢？

我的意思就像图片这样