[编程交流] 错误：错误的参数类型：stri

 
;; local defun by CAB (Charles Alan Butler)
(defun LayerMake_CPO (lyrname Color ltype)
 (if (tblsearch "LAYER" lyrname)
   (command "._Layer" "_Thaw" lyrname "_On" lyrname "_UnLock" lyrname "_Set" lyrname "")
   (command "._Layer" "_Make" lyrname "_Color"
            (if (or (null color)(= Color "")) "_White" Color) lyrname
            "LT" (if (or (null ltype)(= ltype "")) "Continuous" ltype) lyrname "")
 )
)
 
(defun C:CPO (/ *error* ang col clr coords dwo elist midp offsetted ofpt osm p1 p2 p3 pline a b c name folio)
(setq dcl_id (load_dialog "cpo.dcl"))
    (if (not (new_dialog "cpo" dcl_id))
 (exit)
    );if
(action_tile "name" (setq name $value))
(action_tile "folio" (setq folio $value))
;(action_tile "accept" (val1))
(start_dialog)
(unload_dialog dcl_id)
 (setq a (strcat "CCC_CPO_"name"_"folio"_Grey_Hatch")
       b (strcat "CCC_CPO_"name"_"folio"_Outline_Red")
       c (strcat "CCC_CPO_"name"_"folio"_Outline_Black"))
(defun *error* (msg)
 (if
   (vl-position
     msg
     '("console break"
"Function cancelled"
"quit / exit abort"
)
     )
    (princ "Error!")
    (princ msg)
    )
 (if osm (setvar "osmode" osm))
 (if clr (setvar "clayer" clr))
 (if col (setvar "cecolor" col))
 (if dwo (setvar "draworderctl" dwo))
 (command "._undo" "_END")
 )
 (setq osm (getvar "osmode"))  
 (setq col (getvar "cecolor"))
 (setq clr (getvar "clayer"))
 (setq dwo (getvar "draworderctl"))
 (command "._undo" "_BE")
 (setvar "osmode" 2593)
 (setvar "cecolor" "bylayer")
 (setvar "HPORIGINMODE" 5)
 (LayerMake_CPO a "254" "Continuous")
 (LayerMake_CPO b "1" "Continuous")
 (LayerMake_CPO c "7" "Continuous")
(setvar "clayer" c)  
(command "._pline")
(while (= 1 (logand 1 (getvar "cmdactive")))
(command pause))
 (setq pline (entlast)
elist (entget pline)
)
(setq elist (entmod (subst (cons 70 1)(assoc 70 elist)elist)));<--close pline
(entmod (subst (cons 43 0)(assoc 43 elist)elist));<--set line width to zero
(setvar "draworderctl" 3)  
(command "_.draworder" pline "" "_F");<--set pline's draw order to front  
(setq coords (vl-remove-if (function not)
  (mapcar (function (lambda (x)
        (if (= 10 (car x))(cdr x))))
   elist))
)
(setq p3 (caddr coords)
     p1 (car coords)
     ang (angle p1 p3)
     ofpt (polar p3 ang 1.0)
     )
(setvar "clayer" "CCC_CPO_Replace with landwoner name_Outline_Red")
(command "._offset" 0.5 pline ofpt "")
 (setq offsetted (entlast)
 elist (entget offsetted)
)
(if (assoc 62 elist)
(setq elist (subst (cons 62 1)(assoc 62 elist) elist ))
(setq elist (append elist (list '(62 . 1))))
)
(entmod elist)
(command "._pedit" offsetted "_W" 1.0 "")
(command "_.draworder" offsetted "" "_B");<--set pline's draw order to back  
(setq coords (vl-remove-if (function not)
  (mapcar (function (lambda (x)
        (if (= 10 (car x))(cdr x))))
   elist))
)
 (setq p2 (car coords)
midp (mapcar (function (lambda( a b)(/ (+ a b) 2)))
      p1 p2)
)
 (setvar "clayer" "CCC_CPO_Replace with landwoner name_Grey_Hatch")
 (setvar "hpname" "SOLID")
 (command "-hatch" "S" pline "" "")
 (setvar "hpname" ".")
 
;(Alert "Don't forget to change the landowner name & plot number LAYERS in the LAYER window!!!")
 (*error* nil) 
(princ) 
)

cpo: dialog
{label = "CPO Layer Creation";
: edit_box 
            {
label = "Enter landowner name :";
key = "name";
alignment = centered;
edit_limit = 30;
edit_width = 30;
}
: edit_box
{
label = "Enter folio number :";
key = "folio";
alignment = centered;
edit_limit = 10;
edit_width = 30;
}
: button 
{
key = "accept";
label = "OK";
is_default = true;
fixed_width = true;
alignment = centered;
}
: errtile
{
width = 34;
}
}