[讨论]：如何将图框打印设置顺序

啵浪鼓

怎样将图档内所有A3带属性block设置打印顺序。。。

比如，图档内有10张A3图框，以页码来区分它们的不同，如果从页码1打印到最末页，设定打印顺序这段程序该如何写？

页码可以从(setq page(entget(entnext(entnext(entnext(entnext(entnext tk))))))) 处得到！

上面比喻是假设为10张，这总计多少张A3图框是不定数，程序不能将10定为终值。。。

伊伊哎哎

~

它山之石

这样似乎没有什么必要吧。随机的打出来，再人工排序就是了。你总归还要签字的。

啵浪鼓

它山之石，曾见你给贱人量身定做的打印程序，蛮有启发的，知道你对打印出图的有着极深的造诣！

正如楼上所说，人工排序后再一张张签字。。。
可是面对一大堆图纸时要一张一张排序，需消耗一小段时间的，之后还得一张一张审图，签字等。。。这里面所浪费的时间叠加在一起就不少了哦，效率也大打折扣。。。

某些可以用程序来完成的动作，何必要人工去做呢，耗时不说，且易出错！

期待你的高作~！

qjcpj

我觉得也是没有必要！要打印的图纸可作成属性块，图框中含“第 x 张”“共 x 张”，编辑修改也容易。如果使用绘图仪出图，打印前需拼图(在单位使用正版InteCAD拼)，打印后需裁图，那就更没有必要了。

它山之石

　　楼上所言极是，俺打印A2的图也要拼图，再裁开也就不知道什么顺序了。另外一个图形文件中包含了N张图，还有好多是参考用的，反正乱七八糟的，俺倒一直没想到按顺序打印。如果一定要按顺序就利用提取出来的属性建立一个表排序就行了。应该能实现。

lijiao

最初由 啵浪鼓 发布
[B]怎样将图档内所有A3带属性block设置打印顺序。。。

比如，图档内有10张A3图框，以页码来区分它们的不同，如果从页码1打印到最末页，设定打印顺序这段程序该如何写？

页码可以从(setq page(entget(entnext(entn... [/B]

你可以先用SSGET找出所有的A3，然后找出代表页数的属性和代表位置的数据形成一个列表，再对列表按页数排序，然后打印就可以了。

啵浪鼓

最初由 lijiao 发布
[B]你可以先用SSGET找出所有的A3，然后找出代表页数的属性和代表位置的数据形成一个列表，再对列表按页数排序，然后打印就可以了。 [/B]

具体要怎样写呢？
写了下面这段不知要怎样处理表项了，请斑竹指点：
(setq s(ssget  "X" '((2 . "A3"))))
(while (< i (sslength s))
(setq s1(ssname s i))                     
(setq na(+ 1 na))
(setq p1(cdr(assoc 10 (entget s1))))
(setq scl(cdr(assoc 41 (entget s1))))
(setq p2(list (+(* scl 289)(car p1))(+(* scl 200)(cadr p1))))
(command "-plot" "y" "model" "HP5100" "A4" "m" "l" "y" "w" p1 p2 "fit" "c" "y" "acad.ctb" "y" "n" "n" "n" "y")
(setq i(+ i 1)))

伊伊哎哎

没人写么？

fuhongmould

假設你已經得到圖框選擇集ss
(defun hy_GetAtts (Obj / olderror);;;;;取得屬性的點對列表
(cond ((= (type Obj) 'ENAME) (SETQ Obj (vlax-ename->vla-object Obj)))
       ((= (type Obj) 'VLA-OBJECT) (SETQ Obj Obj))
       (t (setq olderror *error*)))
(mapcar
'(lambda (Att)
   (cons (vla-get-TagString Att)
         (vla-get-TextString Att)
   )
  )
  (vlax-invoke Obj 'GetAttributes)
)
)
(defun ss->list(ss / i sslist);;將選擇集內容列表
  (setq i 0)
  (setq sslist nil)
  (repeat (sslength ss)
    (setq sslist (cons (ssname ss i) sslist))
    (setq i (1+ i))
    )
  (reverse sslist)
  )
(defun order_ss(ss);;對選擇集合按頁碼排序
  (vl-sort  (ss->list ss) 'lambda(x y)
                                  (< (atoi(cdr (assoc "page" (hy_GetAtts x))))
                                      (atoi(cdr (assoc "page" (hy_GetAtts y))))
                                  )
);;;;注意"page" 是你圖框頁碼的屬性標簽﹐根據你的圖框實際情況改過來
順序出來了(setq  a3order (order_ss ss))然后根據次序依次打印出來就好。。。。
隨便寫了一下﹐沒有經過測試﹐應該也差不多吧。。試一下有什么問題再聯系我....

-----我是星﹐好久沒來的舊的帳號"舟自橫"好象已經被盜了。。暈

啵浪鼓

不是吧，你这段时间去哪了啊？至少偶尔来灌回水的嘛。。。

可怖，晓东论坛也有人盗号，奇了！

fuhongmould

沒辦法拉。。忙著搬新廠﹐我現在已經在中山了。。。忙的暈。。。

它山之石

最初由 啵浪鼓 发布
[B]不是吧，你这段时间去哪了啊？至少偶尔来灌回水的嘛。。。

可怖，晓东论坛也有人盗号，奇了！ [/B]

　　原来如此，俺说的怎么不见“舟自横”了，还以为真的破釜沉舟了呢。呵呵。

fuhongmould

我也搞不明白﹐盜這個號有什么用.......
害的我還要重新來過。。。
不知道有什么辦法可以找回來。。。

yybu

如果想要用ＬＩＳＰ程序生成ＰＬＴ文件，并存在指定目录下该如何写呢？