[寻找]：求能实现简易的尺寸驱动功能的程序。谢谢！

whzhen · 发表于 2005-3-18 00:08:15

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

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

×

觉得过去使用大恒和InteCAD时的单边尺寸、对称尺寸以及角度的驱动功能很不错，选择尺寸、选择驱动边界或对称中心就完成了，不是在参数化作图下进行的，后来知道大概是用stretch来实现的，但自己头脑简单，水平太差，各位高手看能否提供一个（可能是3个）程序，非常感谢！

gsxhl · 发表于 2005-3-18 07:56:41

我也有这个想法，请高手赐教

ljpnb · 发表于 2005-3-18 11:34:13

最初由 whzhen 发布
[B]觉得过去使用大恒和InteCAD时的单边尺寸、对称尺寸以及角度的驱动功能很不错，选择尺寸、选择驱动边界或对称中心就完成了，不是在参数化作图下进行的，后来知道大概是用stretch来实现的，但自己头脑简单，水平太差，... [/B]

我只实现了对称尺寸的类似驱动，长度尺寸单边驱动有点复杂，还没有想好过。看下图动画

nuomandi · 发表于 2005-3-18 13:27:09

这种编程一定很难的，估计没几个人会！

JOSDENNIS · 发表于 2005-3-18 17:12:23

三樓的程序不是很難實現

wzg · 发表于 2005-4-14 14:03:07

请3楼的能否说一下编程的思路?

AiJue · 发表于 2005-4-14 19:27:44

我觉得这种功能挺有前景的，更加灵活

ljpnb · 发表于 2005-4-14 22:05:28

其实用STRETCH命令来作比较容易实现，我根据自己原先的程序作了一些修改，程序的关键还是用到"stretch"功能，因为我绘图方式可能跟别人的不一样，一般我是模型空间是绘图和出图，所以零件图肯定放大过一定的倍数，所以这个程序比较方便的实现修改尺寸。程序如下：
[PHP]
;;;编写: LJPNB
;;;功能: 一个类似于尺寸驱动,可选择尺寸线或对称直线来修改尺寸
(defun c:z2 (/ os ent0 ent data0 a1 name distan ang p01 p02 string dist p0 p1 p2)
  (setq os (getvar "osmode"))
  (setvar "cmdecho" 0)
  (setq ent0 (car (entsel "\n请选择一条直线或尺寸线:")))
  (redraw ent0 3)
  (setq ent (vlax-Ename->Vla-Object ent0)) ;_转化成VLA名
  (setq data0 (entget ent0))
  (setq name (cdr (assoc 0 data0))) ;_取得实体类型
  (setq a1 (getvar 'DIMLFAC))
  (setq a1 (/ 1 a1))
  (if (= name "LINE")
(progn
   (setq distan (/ (vla-get-Length ent) a1))
   (setq ang (vla-get-angle ent))
   (setq p01 (vlax-curve-getStartPoint ent))
   (setq p02 (vlax-curve-getEndPoint ent))
)
(progn
   (setq p01 (cdr (assoc 13 data0)))
   (setq p02 (cdr (assoc 14 data0)))
   (setq distan (vla-get-Measurement ent))
   (setq ang (angle p01 p02))
)
  )
  (setq string (strcat "\n当前的长度 L="
      (rtos distan)
      "×"
      (rtos a1)
      " ,请输入一个新的对称长度: "
      )
  )
  (setq dist (GETREAL string))
  (redraw ent0 4)
  (setq dist (/ dist 2))
  (setq p0 (mapcar '(lambda (a b) (/ (+ a b) 2)) p01 p02))
  (setq p2 (polar p0 ang (* dist a1)))
  (setq p1 (polar p0 (+ ang pi) (* dist a1)))
  (command "undo" "G")
  (setvar "osmode" 0)
  (command "stretch" "c" p01 p01 "" p01 p1)
  (command "stretch" "c" p02 p02 "" p02 p2)
  (setvar "osmode" os)
  (command "undo" "E")
  (setvar "cmdecho" 1)
  (prompt "\n程序编写by ljpnb !")
  (princ)
)

[/PHP]

hsb-hy · 发表于 2005-4-14 22:24:06

这个功能好，请各位高手将其完善！

啵浪鼓 · 发表于 2005-4-14 23:16:17

8楼的程序真不错，ljpnb支持你~！

wzg · 发表于 2005-4-15 09:05:56

好东西，支持，修改尺寸方便

whzhen · 发表于 2005-4-16 00:51:48

我有一个别人已编译过的程序，先传一个动画上来，能单边驱动和对称驱动，自己也试着编，但水平太次搞不定，大侠们能帮帮忙吗，我觉得挺有用的，看到ljpnb的程序受到启发，如果可以直接选线来驱动不就更好吗，因为说白了这也算不上真正的尺寸驱动，叫快速拉伸可能更确切点。动画中DBQD-单边驱动，DCQD-对称驱动。斑竹能抽空来看看吗？

xiaoyu8882 · 发表于 2005-4-16 01:12:45

不错,支持楼主

狂刀 · 发表于 2005-4-16 12:51:20

如果标注联结了实体，直接改标注点处的实体夹点就可以了

whzhen · 发表于 2005-4-18 13:33:35

狂刀大侠，能不能帮写个代码，很欣赏你的风格，比较简洁。

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

[寻找]：求能实现简易的尺寸驱动功能的程序。谢谢！

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

相关帖子

Re: [寻找]：求能实现简易的尺寸驱动功能的程序。谢谢！