Lisp用于带wi的上一个绘图

gkumar0231 · 发表于 2022-7-5 17:20:53

任何人都可以创建lisp绘图与窗口选择之前，我需要这个紧急。

6678，

我有这些框架，我想创建PDF，每个框架分开，

BIGAL · 发表于 2022-7-5 17:38:03

Gkumar0231开始一个新帖子并删除这个帖子，像其他人一样，我想我有答案，但你必须以正确的方式提问，而不仅仅是添加到帖子中。管理员很快就会解决这个问题。

SLW210 · 发表于 2022-7-5 18:03:55

我为你的问题创建了一条新线索。Lisp用于在AutoLISP、Visual Lisp和DCL论坛中使用窗口选择绘制上一页。

rlx · 发表于 2022-7-5 18:08:40

假设您的上一个情节成功，并且您在纸质空间中：

copy


;(command PlotCommand DetailedPlot LayoutName PrinterName PaperSize PlotUnits Orientation
;   PlotUpsideDown PlotArea 1stCorner 2ndCorner PlotScale PlotOffset
;   PlotWithStyles PlotStyleName PlotWithLineWeights ScaleLineWeight PlotPaperSpaceFirst
;   HidePaperspaceObjects WritePlotToFile SaveChangesToTab ProceedWithPlot)
(defun c:plot_pw ( / 1stCorner 2ndCorner)
 (while (and (setq 1stCorner (getpoint "\nEnter 1st corner : "))
      (setq 2ndCorner (getcorner 1stCorner "\nEnter 2nd corner : ")))
 (command "-plot" "y" "" "" "" "" ""
   "" "window" 1stCorner 2ndCorner "" ""
   "" "" "" "" ""
   "" "" "" "")))

gr.Rlx

BIGAL · 发表于 2022-7-5 18:31:34

这是一个模型空间版本，同样适用于布局，它将找到所有标题栏并绘制它们。我个人每个版面1个标题栏。

一旦设置了正确的块名和图纸尺寸等，快速而肮脏的使用CHSPACE和下面的代码就会起作用。

copy


(PROMPT ".....PRINTING DRAWING TO plotter....")
(setq oldsnap (getvar "osmode"))
(setvar "osmode" 0)
(setq ss2 (ssget "x" '((0 . "INSERT")(2 . "Da1drsht")(410 . "Model")))) ; da1drsht is the name of the title block 410 is the space 
; for this post remove the (410 . "Model") 
; and have a (if (/= "model" (getvar "ctab"))  
(setq n (sslength ss2)) 
(setq index 0)
(repeat n
   (setq en (ssname ss2 index))
   (setq el (entget en))
   (setq inspt (assoc 10 el)) ; insertion pt
  (setq xmin (- (cadr inspt) 6.0))
  (setq ymin (- (caddr inspt) 6.0))
  (setq xymin (strcat (rtos xmin 2 1) "," (rtos ymin 2 1)))
  (setq xmax (+ xmin 813.0)) ; hard coded for 813 wide 6mm offset
  (setq ymax (+ ymin 566.0)) ;hard coded for 566 high
  (setq xymax (strcat (rtos xmax 2 1) "," (rtos ymax 2 1)))
 (COMMAND "-PLOT"  "Y"     "" "//PRODPRN01/Design-5100"
       "A3" "M"     "LANDSCAPE"   "N"
       "W"   xymin   xymax "1=2"  "C"
       "y"   "Designlaser.ctb"      "Y"   "" "n"   "n"
       "y" 
   )
 (setq index (+ index 1))
)
(setvar "osmode" oldsnap)
(princ)

[编程交流] Lisp用于带wi的上一个绘图

发表回复

精选推荐