Heel erg bedankt voor de moeite Roy !
Probleem opgelost. Groeten van onze tekenaar. Die was zeer tevreden.
Probleem opgelost. Groeten van onze tekenaar. Die was zeer tevreden.
- Welkom bij CADsite forum. Graag inloggen of registreren.
Deze sectie stelt je in staat om alle bijdragen van dit lid te bekijken. Je kunt alleen de bijdragen zien waar je op dit moment toegang toe hebt.
Pagina's1
#2
Autolisp / Autocad 10 consp 0.0 error
do 30 04 2009, 09:50:35
Hallo,
1 van onze tekenaars heeft sinds deze week Autocad 10 en 1 van onze LISP routines hapert sindsdien, nl. een routine om de tekening te printen mits selectie van begin en eindpunt.
De fout die we krijgen is : "geef tweede punt: ; error: bad argument type: consp 0.0"
Diezelfde code liep nochtans vlekkeloos in Autocad 2007 & 2009.
Ik zet de code hier nog onder, maar ik betwijfel dat daar het probleem ligt aangezien ze vroeger altijd werkte (en nu nog steeds bij andere tekenaars met oudere versies van ACAD)
Iemand enig idee ?
Dit is de code :
(defun C:4250 ()
;automatisch printen naar printer 4250n
(setq p1 (getpoint "\n Geef eerste punt: "))
(setq p2 (getpoint "\n geef tweede punt: "))
(setq obj1 (ssget "w" p1 p2))
(setq count 0)
(if (/= obj1 nil)
(while (< count (sslength obj1))
(setq eerstvolgende (entget (ssname obj1 count)))
(setq wat (cdr (assoc 0 eerstvolgende)))
(setq layer (cdr (assoc 8 eerstvolgende)))
(if (= wat "LWPOLYLINE")
(progn
(if (= layer "_kader A4")
(progn
(setq punt1 (cdr (nth 14 eerstvolgende)))
(if (= punt1 0.0)
(setq punt1 (cdr (nth 15 eerstvolgende)))
)
(setq punt2 (cdr (nth 22 eerstvolgende)))
(if (= punt2 0.0)
(setq punt2 (cdr (nth 23 eerstvolgende)))
)
(setq hoogte (abs (- (car punt1) (car punt2))))
(setq breedte (abs (- (cadr punt1) (cadr punt2))))
(if (< hoogte breedte)
(setq liggend "Portrait")
(setq liggend "Landscape")
)
;(command "ltscale" "1")
(command "plot" "y" "" "\\\\Server\062\\HP\040Laserjet\0404250N" "A4" "" liggend "" "w" punt1 punt2 "" "" "" "firmanaam.ctb" "" "" "" "y" "y")
;(command "ltscale" "10")
)
)
)
)
(setq count (1+ count))
)
)
)
1 van onze tekenaars heeft sinds deze week Autocad 10 en 1 van onze LISP routines hapert sindsdien, nl. een routine om de tekening te printen mits selectie van begin en eindpunt.
De fout die we krijgen is : "geef tweede punt: ; error: bad argument type: consp 0.0"
Diezelfde code liep nochtans vlekkeloos in Autocad 2007 & 2009.
Ik zet de code hier nog onder, maar ik betwijfel dat daar het probleem ligt aangezien ze vroeger altijd werkte (en nu nog steeds bij andere tekenaars met oudere versies van ACAD)
Iemand enig idee ?
Dit is de code :
(defun C:4250 ()
;automatisch printen naar printer 4250n
(setq p1 (getpoint "\n Geef eerste punt: "))
(setq p2 (getpoint "\n geef tweede punt: "))
(setq obj1 (ssget "w" p1 p2))
(setq count 0)
(if (/= obj1 nil)
(while (< count (sslength obj1))
(setq eerstvolgende (entget (ssname obj1 count)))
(setq wat (cdr (assoc 0 eerstvolgende)))
(setq layer (cdr (assoc 8 eerstvolgende)))
(if (= wat "LWPOLYLINE")
(progn
(if (= layer "_kader A4")
(progn
(setq punt1 (cdr (nth 14 eerstvolgende)))
(if (= punt1 0.0)
(setq punt1 (cdr (nth 15 eerstvolgende)))
)
(setq punt2 (cdr (nth 22 eerstvolgende)))
(if (= punt2 0.0)
(setq punt2 (cdr (nth 23 eerstvolgende)))
)
(setq hoogte (abs (- (car punt1) (car punt2))))
(setq breedte (abs (- (cadr punt1) (cadr punt2))))
(if (< hoogte breedte)
(setq liggend "Portrait")
(setq liggend "Landscape")
)
;(command "ltscale" "1")
(command "plot" "y" "" "\\\\Server\062\\HP\040Laserjet\0404250N" "A4" "" liggend "" "w" punt1 punt2 "" "" "" "firmanaam.ctb" "" "" "" "y" "y")
;(command "ltscale" "10")
)
)
)
)
(setq count (1+ count))
)
)
)
Pagina's1