Stats

  • State Not Answered
  • Replies 2
  • Subscribers 13
  • Views 252
  • Members are here 0
More Content

Menu "Place::Line" Use a free style

ZH202409115233

I want to use TCL to implement a Menu "Place::Line". It should allow me to use my selected Line Style, Line Width, and Color to freely draw lines, rectangles, and annotations with the mouse. However, I currently have no idea how to implement this. Could you please suggest some good methods?

  • 0

     

    Please see the sample scrip how I am drawing a line from the lst click of the mouse and changing the size and color.

    roc capEnabler {} {

    return 1
    }

    proc capDrawline {} {

    set lMouseClick [GetLastMouseClickPointOnPage]
    set lX2 [expr [lindex $lMouseClick 0] + 30.00]
    set lY2 [lindex $lMouseClick 1]
    # puts $lMouseClick
    PlaceLine [lindex $lMouseClick 0] [lindex $lMouseClick 1] $lX2 $lY2
    SetLineWidth 2
    SetColor 8

    }

    RegisterAction "DrawLine" "capEnabler" "Ctrl+R" "capDrawline" "Schematic"

    Similar you can do for other shapes.

    Hope it will help to proceed further.

  • 0 in reply to CadAP

    Thank you. I understand the usage of this code, but I want to set the style first. Then, I can control the head and tail with the mouse as in the standard function on the interface. Right-click "done" to cancel. Is there any way to do this?

Cadence Guidelines

Community Guidelines

The Cadence Design Communities support Cadence users and technologists interacting to exchange ideas, news, technical information, and best practices to solve problems and get the most from Cadence technology. The community is open to everyone, and to provide the most value, we require participants to follow our Community Guidelines that facilitate a quality exchange of ideas and information. By accessing, contributing, using or downloading any materials from the site, you agree to be bound by the full Community Guidelines.