add to more (command "line"

contact lost
contact lost
in 2D Drafting

AT THE END OF PREVIOUS POSTThe following code places grips on pti and ptj the first time through (command "line".., w/out drawing the line, and then proceeds to draw the remaining 6 lines, and stops leaving the grips showing.ADD TO END OF PREVIOUS POST(setq dex 0)(repeat len(setq pjdex (nth dex npnts) ptj (cdr (assoc 10 (entget (ssname apnts pjdex)))))(setq mline (list pti ptj))(command "LINE" mline "")(setq dex (1+ dex)))Any help? Thanks

Comments

  • contact lost
    contact lost

    I am happy to report, in response to my own question, that the following code works where (command "line"... won't.(setq pti (cons 10 pti))(setq dex 0)(repeat len(setq pjdex (nth dex npnts) ptj (cons 11 (cdr (assoc 10 (entget (ssname apnts pjdex))))))(setq mline (cons '(0 . "LINE") (list pti ptj)))(entmake mline)(setq dex (1+ dex)))

This discussion has been closed.