[编程交流] “坏argum”是什么意思

Command: (entget Empty_Variable) ; variable Empty_Variable = nil
; error: bad argument type: lentityp nil

Command: (entget 23) ; integer 23 instead ename
; error: bad argument type: lentityp 23

(defun C:FA ( / adoc)
;;;  (setq adoc  (vla-get-activedocument (vlax-get-acad-object)))
;;;  (vla-startundomark adoc)
 (defun get_acad_vars ()
 (setq osm-set (getvar "osmode"))
 (setq cmd-ech (getvar "cmdecho"))
 (setvar "cmdecho" 0)
 (setq lay-cur (getvar "clayer"))) ; END defun to get original settings to be restored
(defun res_acad_vars ()
 (setvar  "osmode"    osm-set)
 (setvar  "clayer"    lay-cur)
 (setvar  "pickstyle" 1      )
 (command "wipeout" "f" "off")
 (setvar  "cmdecho"   cmd-ech))    ; END defun to restore original acad settings
(defun init_vars ()
(setq pick_ok 0)
(if (= first_time nil)
   (progn (princ "SELECT reference point BEFORE Continuing: ")
          (setq ins_pnt (getpoint))
          (setq pick_start ins_pnt)
   (setq first_time 1))))   ; END progn & defun init_vars procedure
(defun *error* (msg)
(res_acad_vars)
(princ msg)
(princ))                            ; END defun *error*
(defun rel_dist ()
    (setq rel_x  72.0
          rel_y1 0.0
   rel_y2 16.0))            ;END defun relative_distances procedure
(defun get_obj ()                   ; find new insertion point or pick block/mtext to move
 (setvar "osmode" 520)
 (initget 128 "Select")
 (setq ins_pnt (getpoint "\nPICK Block or Mtext or <S>elect new reference point: "))
 (cond
    ((null ins_pnt)
         (progn
  (res_acad_vars)
         (exit)))                  ;cond 1 - picked enter
    ((listp ins_pnt)
         (progn
  (setq pick_object 1)
  ))                        ;cond 2 - picked object
    ((= ins_pnt "Select")
         (progn
  (setq pick_object 0)
  (setq ins_pnt (getpoint))
         (setq pick_start ins_pnt)
  (setq first_time 1)))     ;cond 3 - select new ref point
 ))                                ;END cond function & defun in_pts 
(defun start_pnt ()
  (setq new_x  (car  pick_start))
  (setq new_y1 (cadr pick_start));<===========Problem here?
  (setq new_y2 (- new_y1 rel_y2))) ;END defun start_pnt
(defun  increment ()
 (setq new_x (+ new_x rel_x))
 (setq new_y (+ new_y1 rel_y1))
 (setq y2_val_n (+ new_y rel_y2))
)
(defun pick_obj ()
 (setq ss_obj (ssget ins_pnt))
 (setq ent (entget (ssname ss_obj 0)))  ;get the entire entity list
   (cond ((= (cdr (cadr ent)) "INSERT")
       (progn
   (setq pick_ok 1)       ; found a BLock
                 (setq list_num 10)
   (increment)
   (mov_ins_pnt)
   (while(/= "SEQEND" (cdr (cadr ent)))
       (setq list_num 11)
                     (setq ent_nam (cdr (car ent)))
                     (setq ent     (entget (entnext ent_nam)))
              (mov_ins_pnt)
                  )                     ;END while
  )                       ;progn - found block
          )                             ;condition 1
   ((= (cdr (cadr ent)) "MTEXT")
       (progn
   (setq pick_ok 2)       ; found MText
                 (setq list_num 10)
   (increment)
   (mov_ins_pnt)
              ))                        ;END progn & condition 2
    )                                   ;END cond
);defun pick_obj
(defun mov_ins_pnt ()                 ;move the insertion point
 (setq blck_pnt (assoc list_num ent));get the list of the block insertion point
 (setq old_x    (cadr  blck_pnt))    ;insertion point x value at start)
 (setq old_y    (caddr blck_pnt))    ;insertion point y value at start)
 (setq delta_x  (- new_x old_x))
 (setq delta_y  (- new_y old_y))
 (setq x1_val  (+ old_x delta_x))    ; for block/attributes
 (setq x2_val  (+ old_x delta_x))    ; for mtext
 (setq y1_val  (+ old_y delta_y))
 (setq y2_val  (+ old_y delta_y))
 (cond ((= pick_ok 1)(progn          ; for block/attributes
                         (setq new_x x1_val)
    (setq new_y new_y1)
    (setq x1_val  (+ old_x delta_x))
  ))
((= pick_ok 2)(progn          ; for mtext
    (setq new_x x2_val)
                  (setq new_y new_y2)
                         (setq just1 (assoc 71 ent))
                  (setq just2 (cons  71 2))
                  (setq ent   (subst just2 just1  ent)));progn
);cond pick_ok 2
 )      ;cond
 (setq ins_pnt  (list new_x  new_y  0.0))         ; new insertion point
 (setq mov_pnt  (cons list_num  ins_pnt))         ; new insertion point LIST
 (setq ent      (subst mov_pnt  blck_pnt  ent))
 (entmod ent)
 ;(ENTUPD ENT)    ;;;;;   <<<=========  BAD ARGUMENT PROBLEM HERE *****
);defun move insertion point
;==============================
;        MAIN PROGRAM          
;==============================
(init_vars)
(get_acad_vars)
(rel_dist)
(get_obj)
(start_pnt)
(increment)
(pick_obj)
(res_acad_vars)
;;; (vla-endundomark adoc)
(princ)
;==============================
);END PROGRAM defun Command: FA

(defun c:redef_instruments ()
(setvar "clayer" "sym")
(setq lst_blk (ai_table "BLOCK" 0))
(if lst_blk
(progn
(foreach str_blk lst_blk
(setq file_blk
(open (strcat (getvar "dwgprefix") "InstrumentMap.csv") "r")
)
(while (setq record (read-line file_blk))
(setq str_name (nth 0 (strparse record ",")))
(if
(and
(= (strcase str_name) (strcase str_blk))
(> (length (strparse record ",")) 1)
(/= (setq str_newname (nth 1 (strparse record ","))) "")
)
(progn
(redefineinstruments str_name str_newname)
)
)
)
(close file_blk)
)
)
)
)
(defun redefineinstruments (old new / blist
attlst_old attlst_new
val scx scy scz
)
(setq ss_old (ssget "x" (list '(0 . "INSERT") (cons 2 old))))
(if ss_old
(progn
(setq blist
(sel2lst ss_old)
)
(foreach nb blist
(command "insert"
(strcat new "=" (findfile (strcat new ".dwg")))
(getval 10 nb)
"XYZ"
1
1
1
(rtod (getval 50 nb))
)
(setq attlst_old (att2lst nb))
(setq attlst_new (att2lst (entlast)))
(setval 1 (getval 1 (nth 0 attlst_old)) (nth 0 attlst_new))
(setval 1 (getval 1 (nth 1 attlst_old)) (nth 1 attlst_new))
(setval 1 (getval 1 (nth 2 attlst_old)) (nth 2 attlst_new))
(setval 1 (getval 1 (nth 3 attlst_old)) (nth 3 attlst_new))
(setval 1 (getval 1 (nth 4 attlst_old)) (nth 4 attlst_new))
(setval 1 (getval 1 (nth 5 attlst_old)) (nth 5 attlst_new))
(setval 1 (getval 1 (nth 6 attlst_old)) (nth 6 attlst_new))
(setval 1 (getval 1 (nth 7 attlst_old)) (nth 7 attlst_new))
(setval 1 (getval 1 (nth 8 attlst_old)) (nth 8 attlst_new))
(setval 1 (getval 1 (nth 9 attlst_old)) (nth 9 attlst_new))
(setval 1 (getval 1 (nth 10 attlst_old)) (nth 10 attlst_new))
(setval 1 (getval 1 (nth 11 attlst_old)) (nth 11 attlst_new))
(setval 1 (getval 1 (nth 12 attlst_old)) (nth 12 attlst_new))
(entdel nb)
)
)
)
(entupd (entlast))
)

(defun c:hln (/ LAS OS R1 R2 XNv XFv r2v Y1v X1v X2v P1v P2v xnh xfh r2h y1h x1h x2h p1h p2h)
 (SETVAR "CMDECHO" 0)
 (SETQ LAS (GETVAR "CLAYER"))
 (SETQ OS (GETVAR "OSMODE"))
 (initget "V H")
 (setq direc (getkword "Type: Vert/Horiz<current>"))
;need to change from horizontal to vertical
;swap involves components of chosen line
;if statement should control use of those components
;simple way, if V then change components to XNV versus XNH, etc.
 (command "layer" "s" "hid" "")
 (setvar "osmode" 512)
 (cond
   ((= "V" direc)
    (SETQ R1 (ENTSEL "Pick line: "))
    (SETQ XNv (GETPOINT "Pick BOTTOM side of plate: "))
    (terpri) ;point selected on top line
    (SETQ XFv (GETPOINT "Pick TOP hside of plate: "))
    (terpri) ;point selected on bottom line
    (setq R2v (entget (car R1)))
    (setq Y1v (CADR (ASSOC 10 R2v))) ;X COORDINATE
    (setq X1v (CADR XNv)) ;BOTTOM SIDE Y COORDINATE
    (setq X2v (CADR XFv)) ;TOP SIDE Y COORDINATE
    (SETQ P1v (LIST Y1v X1v))
    (SETQ P2v (LIST Y1v X2v))
    (command "line" p1v p2v /c/c)
   )
   ((= "H" direc)
    (SETQ R2 (ENTSEL "Pick line: "))
    (SETQ XNh (GETPOINT "Pick RIGHT side of plate: "))
    (terpri)
    (SETQ XFh (GETPOINT "Pick LEFT side of plate: "))
    (terpri)
    (setq R2h (entget (car R2)))
    (setq Y1h (CADDR (ASSOC 11 R2h))) ;Y COORDINATE
    (setq X1h (CADR XNh)) ;NEAR SIDE X COORDINATE
    (setq X2h (CAR XFh)) ;FAR SIDE X COORDINATE
    (SETQ P1h (LIST X2H Y1h))
    (SETQ P2h (LIST X1h Y1h))
    (command "line" p1h p2h /c/c)
   )
 )
 (COMMAND "LAYER" "S" LAS "")
 (SETVAR "OSMODE" 183)
 (PRINC)
)