请大家帮我看看这段程序自动图框

皇上快溜 · 发表于 2016-10-12 21:16:51

本帖最后由皇上快溜于 2016-10-12 21:22 编辑

Sylvanas 发表于 2016-10-12 16:11
就是你发的那个文件，能插入

谢谢你多次指点，仍有些问题想请你求教，套出来的图框不对中。。。总是有点偏，不知道程序中是如何对应插入基准点的

我将 (setq acx  (/ disx 780.00))
   (setq acy  (/ disy 500.00))

改成为 (setq acx  (/ disx 297.00))
   (setq acy  (/ disy 210.00))

对应HK.dwg图形中的实际尺寸

后面的这些不知什么意思
  (if (> acy acx)
      (setq acx acy)
)
   (setq acx (*  (fix (+ (* acx 10) 0.9999)) 0.1))
(setq acc (rtos acx 2 1))
(setq pt0 (list (/ (+ (car pt1 ) (car pt2) (* (- 0 8) acx)) 2.00)
                  (/ (+ (cadr pt1) (cadr pt2) (* (- 0 23.6) acx)) 2.00)))
想请你帮忙改一下，实现对中。

文件HK.dwg的基准点如图中所示

此外，现在套出来的图框紧贴着
(setq pt1 (getpoint "图形左上角:\n"))
(setq pt2 (getcorner pt1 "图形右下角:\n"))
围成的矩形框，须人工再次调整图框大小，不知道这个比例在程序中那个位置调整？

皇上快溜 · 发表于 2016-10-12 21:26:23

Sylvanas · 发表于 2016-10-13 09:03:00

本帖最后由 Sylvanas 于 2016-10-13 11:05 编辑

皇上快溜发表于 2016-10-12 21:16
谢谢你多次指点，仍有些问题想请你求教，套出来的图框不对中。。。总是有点偏，不知道程序中是如何对应插 ...

看不懂就删掉呗

写个看得懂的就好啦

另外你的块基点不对啊，并不是你说的中心，重新定义一下

(setq pt1 (getpoint "图形左上角:\n"))
(setq pt2 (getcorner pt1 "图形右下角:\n"))
(setq disx (abs (- (car pt1) (car pt2))))
(setq disy (abs (- (cadr pt1) (cadr pt2))))
(setq acx (/ disx 297.00))
(setq acy (/ disy 210.00))
(setq pt0 (list (/ (+ (car pt1) (car pt2)) 2)
(/ (+ (cadr pt1) (cadr pt2)) 2)
)
)

后面插入那部分改成

(command "insert" "HK.dwg" pt0 "x" acx "" acy "" ) ;属性自行添加

皇上快溜 · 发表于 2016-10-13 14:11:47

Sylvanas 发表于 2016-10-13 09:03
看不懂就删掉呗写个看得懂的就好啦

另外你的块基点不对啊，并不是你说的中心，重新定义一下

谢谢，代码简洁精干多了，，，
请问，文件HK.dwg中的块基点应该定义在那里？此前没这么用过，完全没点概念
我下载了13楼，你帮忙编辑过的文件，目前的效果是这样如图

皇上快溜 · 发表于 2016-10-13 14:13:22

tang87 · 发表于 2016-10-13 19:24:30

请楼主改好后可以给我分享下吗？我这也有个图框也有点问题。你看下也许用的到。

皇上快溜 · 发表于 2016-10-13 21:04:33

tang87 发表于 2016-10-13 19:24
请楼主改好后可以给我分享下吗？我这也有个图框也有点问题。你看下也许用的到。

一筹莫展中，，

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

[提问] 请大家帮我看看这段程序自动图框

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源

[提问] 请大家帮我看看这段程序 自动图框

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源

[提问] 请大家帮我看看这段程序自动图框