[编程交流] 圆圈标记？帮助

(defun c:[color=red]PIPsmallvalves[/color] ( / name a1 a2 a3 insertpt1 Dcl_Id% Folder$ Slides@ [color=red]Slide1$ Slide2$ Slide3$ Slide4$ Slide5$ Slide6$ Slide7$ Slide8$ Slide9$ Slide10$ Slide11$ Slide12$ Slide13$ Slide14$ Slide15$ Slide16$[/color] Return$ X# Y# ss p2 p3 osm *error* oldlay) 
    
(setq oldlay (getvar "clayer"))
     (setq oldecho (getvar "cmdecho"))
     (setvar "cmdecho" 0)
     (command "_.undo" "_begin")
     (defun *error* ( msg )
     (if osm (setvar 'OSMODE osm))
     (if snpm (setvar 'SNAPMODE snpm))
     (if snp (command "snap" snp))
     (if echo (setvar 'CMDECHO echo))
     (if oldlay (setvar "clayer" oldlay))
   (if (not (member msg '("Function cancelled" "quit / exit abort")))
       (princ (strcat "\nError: " msg))
   )
   (princ)
   (command "_.undo" "_end")
   )
(princ "\n")
   ; Set Default Variables
  [color=red](setq Slides@ (list nil "PVS001" "PVS002" "PVS003" "PVS004" "PVS005" "PVS006" "PVS007" "PVS008" "PVS009" "PVS010" "PVS011" "PVS012" "PVS013" "PVS014" "PVS015" "PVS016")[/color]
        Slide1$ (nth 1 Slides@)
       [color=red] Slide2$ (nth 2 Slides@)
        Slide3$ (nth 3 Slides@)
        Slide4$ (nth 4 Slides@)
        Slide5$ (nth 5 Slides@)
        Slide6$ (nth 6 Slides@)
        Slide7$ (nth 7 Slides@)
        Slide8$ (nth 8 Slides@)
        Slide9$ (nth 9 Slides@)
        Slide10$ (nth 10 Slides@)
        Slide11$ (nth 11 Slides@)
        Slide12$ (nth 12 Slides@)
        Slide13$ (nth 13 Slides@)
        Slide14$ (nth 14 Slides@)
        Slide15$ (nth 15 Slides@)
        Slide16$ (nth 16 Slides@)[/color]
        Folder$ ""
        Return$ ""
  );setq
   ; Load Dialog
  (setq Dcl_Id% (load_dialog "[color=red]PIPsmallvalves.dcl[/color]"))
  (new_dialog "[color=red]PIPsmallvalves[/color]" Dcl_Id%)
   ; Set Dialog Initial Settings
  (set_tile "Title" "[color=red]SMALL VALVES[/color]")
[color=red]  (set_tile "PVS001" Slide1$)
  (set_tile "PVS002" Slide2$)
  (set_tile "PVS003" Slide3$)
  (set_tile "PVS004" Slide4$)
  (set_tile "PVS005" Slide5$)
  (set_tile "PVS006" Slide6$)
  (set_tile "PVS007" Slide7$)
  (set_tile "PVS008" Slide8$)
  (set_tile "PVS009" Slide9$)
  (set_tile "PVS010" Slide10$)
  (set_tile "PVS011" Slide11$)
  (set_tile "PVS012" Slide12$)
  (set_tile "PVS013" Slide13$)
  (set_tile "PVS014" Slide14$)
  (set_tile "PVS015" Slide15$)
  (set_tile "PVS016" Slide16$)[/color]
   ; Adjust X# and Y# per image_buttom outline to fit slide_image
  (start_image "Slide1")
  (setq X# (- (dimx_tile "Slide1") 2))
  (setq Y# (- (dimy_tile "Slide1") 2))
  (end_image)
 [color=red] (start_image "Slide1")(slide_image 1 1 X# Y# (strcat Folder$ Slide1$))(end_image)
  (start_image "Slide2")(slide_image 1 1 X# Y# (strcat Folder$ Slide2$))(end_image)
  (start_image "Slide3")(slide_image 1 1 X# Y# (strcat Folder$ Slide3$))(end_image)
  (start_image "Slide4")(slide_image 1 1 X# Y# (strcat Folder$ Slide4$))(end_image)
  (start_image "Slide5")(slide_image 1 1 X# Y# (strcat Folder$ Slide5$))(end_image)
  (start_image "Slide6")(slide_image 1 1 X# Y# (strcat Folder$ Slide6$))(end_image)
  (start_image "Slide7")(slide_image 1 1 X# Y# (strcat Folder$ Slide7$))(end_image)
  (start_image "Slide8")(slide_image 1 1 X# Y# (strcat Folder$ Slide8$))(end_image)
  (start_image "Slide9")(slide_image 1 1 X# Y# (strcat Folder$ Slide9$))(end_image)
  (start_image "Slide10")(slide_image 1 1 X# Y# (strcat Folder$ Slide10$))(end_image)
  (start_image "Slide11")(slide_image 1 1 X# Y# (strcat Folder$ Slide11$))(end_image)
  (start_image "Slide12")(slide_image 1 1 X# Y# (strcat Folder$ Slide12$))(end_image)
  (start_image "Slide13")(slide_image 1 1 X# Y# (strcat Folder$ Slide13$))(end_image)
  (start_image "Slide14")(slide_image 1 1 X# Y# (strcat Folder$ Slide14$))(end_image)
  (start_image "Slide15")(slide_image 1 1 X# Y# (strcat Folder$ Slide15$))(end_image)
  (start_image "Slide16")(slide_image 1 1 X# Y# (strcat Folder$ Slide16$))(end_image)[/color]
    ; Dialog Actions
[color=red] (action_tile "Slide1" "(done_dialog 11)")
(action_tile "Slide2" "(done_dialog 12)")
(action_tile "Slide3" "(done_dialog 13)")
(action_tile "Slide4" "(done_dialog 14)")
(action_tile "Slide5" "(done_dialog 15)")
(action_tile "Slide6" "(done_dialog 16)")
(action_tile "Slide7" "(done_dialog 17)")
(action_tile "Slide8" "(done_dialog 18)")
(action_tile "Slide9" "(done_dialog 19)")
(action_tile "Slide10" "(done_dialog 20)")
(action_tile "Slide11" "(done_dialog 21)")
(action_tile "Slide12" "(done_dialog 22)")
(action_tile "Slide13" "(done_dialog 23)")
(action_tile "Slide14" "(done_dialog 24)")
(action_tile "Slide15" "(done_dialog 25)")
(action_tile "Slide16" "(done_dialog 26)")[/color]
(action_tile "cancel" "(done_dialog 0)")
 
(setq a1 (start_dialog))
(setq osm (getvar "osmode"))
(command "attreq" "0")
(command "snap" "0.0625")
(if (and a1 (> a1 1))
(progn
                       (if (not (tblsearch "layer" "[color=red]PID[/color]"))
                           (entmake
                              (list
                                 (cons 0 "Layer")
                                 (cons 100 "AcDbSymbolTableRecord")
                                 (cons 100 "AcDbLayerTableRecord") 
                                 (cons 2 "[color=red]PID[/color]")
                                 (cons 70 0)
                                 (cons 62 2)
                                 (cons 6 "[color=red]Continuous[/color]")
                               )       ;list
                              )       ;entmake
                         )        ;if
(setvar "clayer" "[color=red]PID[/color]") 
(if (setq insertpt1 (getpoint "\nPick Insertion Point: "))
(progn
 (if (and (setq ntsel (nentselp insertpt1))
   (= (length ntsel) 2)
   (setq name (car ntsel))
   (wcmatch (cdr (assoc 0 (entget name))) "LINE,LWPOLYLINE")
   );; and
   (setq objx 1)
   );; if
 
     (cond          ;as long as
[color=red] ((= a1 11)(MySub "PVS001" 0.0938 -0.0938 insertpt1))    ;a1 11
((= a1 12)(MySub "PVS002" 0.0938 -0.0938 insertpt1))    ;a1 12
((= a1 13)(MySub "PVS003" 0.0938 -0.0938 insertpt1))    ;a1 13
((= a1 14)(MySub "PVS004" 0.0938 -0.0938 insertpt1))    ;a1 14
((= a1 15)(MySub "PVS005" 0.0938 -0.0938 insertpt1))    ;a1 15
((= a1 16)(MySub "PVS006" 0.0938 -0.0938 insertpt1))    ;a1 16
((= a1 17)(MySub "PVS007" 0.0938 -0.0938 insertpt1))    ;a1 17
((= a1 18)(MySub "PVS008" 0.0625 -0.0625 insertpt1))    ;a1 18
((= a1 19)(MySub "PVS009" 0.0938 -0.0938 insertpt1))    ;a1 19
((= a1 20)(MySub "PVS010" 0.0938 -0.0938 insertpt1))    ;a1 20
((= a1 21)(MySub "PVS011" 0.0938 -0.0938 insertpt1))    ;a1 21
((= a1 22)(MySub "PVS012" 0.0938 -0.0938 insertpt1))    ;a1 22
((= a1 23)(MySub "PVS013" 0.0938 -0.0938 insertpt1))    ;a1 23
((= a1 24)(MySub "PVS014" 0.0000 -0.0000 insertpt1))    ;a1 24
((= a1 25)(MySub "PVS015" 0.0313 -0.0313 insertpt1))    ;a1 25
((= a1 26)(MySub "PVS016" 0.0781 -0.0781 insertpt1))    ;a1 26[/color]
       )          ;cond 
      )          ;progn
)          ;a1 1 if
))          ;if progn test    
(setvar "osmode" osm) 
(setvar "cmdecho" 0)      
(princ) 
   (command "_.undo" "_end")
(setvar "clayer" oldlay) 
(princ)        
)    
(defun MySub (a1 a2 a3 insertpt1 / OBJ P2 P3 doc)      ;subfunction
(vl-load-com)          ;load vlisp functions
 (if (= objx 1)         ;if objx is 1, ent=line or pline
   (progn          ;preform these actions
(setvar "osmode" 0)         ;first turn off osnap
 (princ)
(if (> a2 0.0)          ;if trim dist is greater than 0.0 preform
(progn           ;these actions
(setq obj (vlax-ename->vla-object name))      ;get entity object
(if (eq (vla-get-ObjectName obj) "AcDbPolyline")     ;if it is a LwPolyline
    (setq p3 insertpt1         ;get first break point
   p2 (angle insertpt1  (vlax-curve-getpointatparam obj  
 (fix (vlax-curve-getparamatpoint obj 
 (vlax-curve-getClosestPointTo obj insertpt1 T))))))      
(setq p3 insertpt1         ;and second break point
     p2 (angle (vlax-curve-getStartpoint obj) (vlax-curve-getEndPoint obj)))
)           ;if
(command "break" name (polar p3 p2 a2) (polar p3 p2 a3))
(command "_insert" a1 insertpt1 "" "" pause)      ;insert into space
)           ;progn
(princ "\n......Selected....\n......Breaking Lines....")    ;status
)           ;if
) 
(progn  
 (command "_insert" a1 insertpt1 "" "" pause)      ;insert onto line
(princ)
)
)           ;if
(princ "\n......Insertion Completed!")       ;princ
(princ)
(setq name nil)
)           ;MySub

img : image_button
{
height = 6.5;
width = 22.00;
fixed_width = true;
fixed_height = true;
alignment = centered;
color = -2;
}
txt : text {fixed_width = true; alignment = centered; }
col : column {fixed_width = true; width = 45; }
 //---------------------------------------------------------------------------------------------------------
//   PIP Small Valves Dialog
// Brandon Hull, Cynthia helms, special thanks to : Lee Mac, Scot65, HmSilva
//---------------------------------------------------------------------------------------------------------
 [color=red]PIPsmallvalves[/color] : dialog {
  label = "[color=red]SMALL VALVES[/color]"; spacer;
: row 
{
   : col
   {
 : img { key = "Slide1"; } : txt { label = "[color=red]Gate Valve[/color]"; } spacer_1;
 : img { key = "Slide2"; } : txt { label = "[color=red]Check Valve[/color]"; } spacer_1;
 : img { key = "Slide3"; } : txt { label = "[color=red]Stop Check[/color]"; } spacer_1;
 : img { key = "Slide4"; } : txt { label = "[color=red]Globe Valve[/color]"; } 
   }
   : col
   {
 : img { key = "Slide5"; } : txt { label = "[color=red]Butterfly Valve[/color]"; } spacer_1;
 : img { key = "Slide6"; } : txt { label = "[color=red]Needle Valve[/color]"; } spacer_1;
 : img { key = "Slide7"; } : txt { label = "[color=red]Ball Valve[/color]"; } spacer_1;
 : img { key = "Slide8"; } : txt { label = "[color=red]Generic Rotary[/color]"; }  
   }
   : col
   {
 : img { key = "Slide9"; } : txt { label = "[color=red]Plug Valve[/color]"; } spacer_1;
 : img { key = "Slide10"; } : txt { label = "[color=red]Diaphragm Valve[/color]"; } spacer_1;
 : img { key = "Slide11"; } : txt { label = "[color=red]Three-Way Valve[/color]"; } spacer_1;
 : img { key = "Slide12"; } : txt { label = "[color=red]Four-Way Valve[/color]"; }  
   }
   : col
   {
[color=black]  : img { key = "Slide13"; } : txt { label = "[color=red]Pinch Valve[/color]"; } spacer_1;[/color]
[color=black]  : img { key = "Slide14"; } : txt { label = "[color=red]Angle Valve[/color]"; } spacer_1;[/color]
[color=black]  : img { key = "Slide15"; } : txt { label = "[color=red]Knife Valve[/color]"; } spacer_1;[/color]
[color=black]  : img { key = "Slide16"; } : txt { label = "[color=red]Three-Way Ball Valve[/color]"; }[/color]  
   }
}
spacer; cancel_button;  
}///generalsymbols